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ABSTRACT 

PROJECT CONTROL USING THE PROBLEM-ORIENTED 
LANGUAGE PROJECT 



by 



LTJG JOHN THEODORE MACDERMOTT, CEC, USN 



Submitted to the Department of Civil Engineering on August 21, 1967 in 
partial fulfillment of the requirements for the degree of Master of 
Science in Civil Engineering, 



The problem-oriented language PROJECT, of which this research 
forms a part, was developed in order to facilitate the use of CPM and 
PERT on any project which can be described in terms of work items. The 
area with which this thesis deals is that of monitoring a project’s prog- 
ress, As is true of the rest of the PROJECT subsystem, no special com- 
puter knowledge is necessary to use this feature since all instructions 
to the computer are couched in the language of project management. 

The preparation of PROJECT’S progress control capability was 
marked by two phases. The first phase centered around the developme nt 
of the measures to be used as monitors. The concept underlying this de- 
velopmental work was that of comparison . Actual work progress and costs 
are compared with estimated work progress and costs in order to determine 
a project’s status. In addition to being able to determine the status of 
the project as a single entity, the status of any subset of activities — 
called sub-networks — can be determined also. 

The second phase of this research was concerned with interfacing 
the monitoring feature with PROJECT. It was during the implementation 
phase that the algorithms developed earlier were translated into workable 
computer programs, compatible with PROJECT. 
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Introduction 

PROJECT is a problem-oriented computer language which was designed 
and developed by William H. Linder in the Department of Civil Engineer- 
ing at the Massachusetts Institute of Technology, PROJECT is a subsys- 
tem of the Integrated Civil Engineering System (ICES). Briefly described, 
the capabilities of ICES PROJECT are: 

1. to represent a project in terms of work items and time; 

2. to make projections (over a project's lifetime) of in- 
curred costs and resource consumption; 

3. to adjust project schedules to satisfy time or resource 
constraints; and 

4. to provide a method of monitoring project progress. 

The last item in the list of PROJECT capabilities — project control— is 
to be the subject of this paper. The concern with project control stems 
from the fact that a prime function of an organization which undertakes 
a project of any sort is the management and control of the resources as- 
sociated with that project. Increased emphasis on rapid completion, 
brought about by keen marketing competition and high interest rates on 
borrowed money, and the technology "explosion" which has permeated 
nearly every field of endeavor are but two of several significant factors 
which have helped to increase both the difficulty and importance of man* 
aging and controlling capital investment projects. 

In his book Control and Management of Capi tal Projects, J, W. 

Hackney suggests that the techniques for the "control of projects natur- 
ally group themselves into those related to: 

.Capital cost — estimating and controlling the money invested 

•Time — planning, scheduling and monitoring for smooth progress 
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and toward early completion 

•Value — pre-determining and controlling income as related to in- 
vestment, operating costs and risks”! 

In PROJECT, the progress control monitor is based on work progress and 

financial progress* 

Because it was recognized that the project manager is already bur- 
dened with a good deal of information, a prime consideration in the de- 
velopment of the project control monitor was that it provide worthwhile 
information yet be simple. The goal, then, was to provide the project 
manager with a single value which is an i ndicator of the project’s sta- 
tus. The philosophy behind PROJECT’S progress control feature is that 
of "management by exception.” This means that actual work and cost pro- 
gress are compared with estimated work and cost progress to indicate 
those areas of the project which may prevent the project as a whole from 
finishing (1) on schedule and (2) within its budget. 

The Road Ahead 

The next chapter of this paper deals with the mathematical formu- 
lation of the status index and its components. Chapter Three discusses 
the philosophy of computing the status index — the assumptions and limi- 
tations inherent in it. In the fourth chapter, the commands for using 
the project control feature are reviewed. Chapter Five is devoted to a 
sample problem which illustrates how all phases of this work tie together 
as a usable part of the PROJECT subsystem. The last section, Chapter Six, 
suggests some areas in which more work might be done and concludes by 

^Control and M an age ment of Capital Projects, J. W. Hackney, John Wiley & 
Sons, Inc., 1965, pg. 3. 



9 



presenting some general observations* In Appendix A, the interested 
reader will find listings of the programs pertinent to PROJECT'S prog- 
ress control feature. Appendix B briefly describes the PROJECT command 
structure. 



CHAPTER TWO 



The Status In dex and Its Components 

2.1 The Work Progress Component 

2.2 The Financial Progress Component 

2.3 The Status Index 
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The Status Index and Its Components 



"Can we finish on time and remain within the project's budget?" 

This question, often raised by project managers, points to two items which 
are critical to any project — time and money. Concern with work and finan- 
cial progress has provided the motivation for the development of a status 
index based on these items. The status index, formed from the product of 
factors representing work and financial progress components, forms the 
basis of PROJECT'S progress control feature. 

2 • 1 The Work Progress Component 

Before developing the work progress component of the status index, 
it is necessary to present some definitions. 

1. Orig inal project duration: T 

This is the original estimate of the project duration—the re- 
sult of the first unrevised, but complete, planning schedule. Ex- 
cept for a situation to be discussed later, T is a project constant. 

2. Revised project duration: T' 

This is the latest revised estimate of project duration. It 
is based on data reported from the project site and is equal to the 
time from the project start to the present plus the most recent es- 
timate of how long it will take (again, measuring from the present) 
to finish the project. 

3* Elapsed time : t_ 

£ is the time from project start to the present. 

4. Remaining time : t^ 

t ' represents the latest revised estimate (measuring from the 
present) of how much longer it will take to finish the project. 

As the project advances, is estimated over successively smaller 
time intervals and should, therefore, be increasingly accurate. At 
the project start, T = T' = t'. 

5. Initial a mount of time recoverable : K 



K is the amount of time which can be "made up" over the project 
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lifetime by accomplishing the appropriate activities as quickly as 
possible. K is estimated at the start of the project; it is a para- 
meter evaluated for each project and is the amount of time recover- 
able when t = 0. 

6. Current amou nt of time recoverable : J_ 

This is the amount of time which can be made up at any point 
in the projects lifetime. J is a function of the original project 
duration, the total time recoverable and the elapsed time — 

J - f (T,K,t). 



As the project advances, less and less time can be made up by 
crashing activities. Just how the amount of time which can be made up 
behaves is not clear, but to a first approximation it is reasonable to 
assume that it decreases linearly. With this assumption of linearity, let 




( 2 . 1 ) 



When J is less than (T f - T) the project will take more time to complete 
than can be made available even if all succeeding activities are crashed, 

Figure 2.1 shows graphically what has been presented thus far. The 
significance of the parameter K becomes clear at this point. As the 
value which fixes the time recoverable curve (here, the straight line 
represented by J), K must be carefully determined and ought not be modi- 
fied unless the project schedule is changed. Figure 2.1 suggests a num- 
ber of other noteworthy points. First, for any value of time t (where t 
is less than T) the value (ordinate) of the corresponding point on the 
line J represents the time which could be made up by making a maximum 
effort. Next, the value of the ordinate at is the amount of time that 
the project is behind schedule. Finally, if the point £ and the line 
happened to be coincident, the project can be finished on time if a maxi- 
mum effort is made. 

In terms of the previous definitions, the work progress component of 
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Figure 2.1: The time recoverable curve 
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the status index is 



I W SS J - T) 



( 2 . 2 ) 



J 



When actual work progress agrees exactly with what was scheduled, I w ® 1. 
If the actual work is further along than was anticipated when the sched- 
ule was prepared, I w reflects this fact by assuming a value greater than 
!♦ Should actual work represent less of an accomplishment than was plan- 
ned for a particular time, I w will be less than unity. These conditions 
are summarized in the following table. 



In the definition of the project parameters T and K, circumstances 
were alluded to under which these values might change. If it happens 
that J is less than (T 1 - T) it is unwise to continue to deal in terms 
of the current network because, based on the estimate of time recoverable, 
there is no possibility of finishing by time T. In this situation, the 
network must be modified to reflect (1) the work actually finished and 
(2) changes in the work plan. The project network should be modified to 
represent this "new" project and revised values of the parameters T and K 
should be associated with the revised project. 

When t T, J = 0 and the work progress measure 2.2 goes to infinity. 
This means that the work progress component (and hence the status index) 
cannot be computed for the last day of the project. This does not con- 
stitute a major limitation since the value of the status index when the 
project is essentially complete is not of great interest. It Is of in- 



Value of I w 



Implication 



less than one 
equal to one 
greater than one 



behind schedule 
exactly on schedule 
ahead of schedule 
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terest to note the effect of the difference (T f - T) on the behavior of 
the work progress component. When the project is on schedule, I w is one, 
suggesting that T f = T. If the project is behind schedule, (T f - T) is 
greater than zero; the quantity (T f - T) acts to decrease the numerator, 
making it smaller than the denominator. In this case, should the numera- 
tor become negative (that is, J less than (T f - T)), the situation is in- 
feasible with respect to time and the project must be reconsidered. 

Should the project be ahead of schedule (T f - T) is negative; this quan- 
tity now acts to increase the value of the numerator in 2.2. In this 
case, I will grow larger than one, behaving as advertised. There may 
be some concern with the fact that the denominator of 2.2 decreases while 
the numerator remains relatively constant (approximately equal to (T 1 -T)). 
This concern is unwarranted since (T f - T) strictly positive means that 
the project will finish on day T 1 which occurs before day T. Mathematic- 
ally speaking, this means that J is bounded from below by a value larger 
than zero, hence the denominator does not go to zero. 

2 • 2 The Financial Progress Component 

As was indicated at the outset, the general concept behind the 
status index and its components is to compare actual progress with ex- 
timated progress. In the financial component of the status index, this 
goal is achieved by relating, for a specific time t during the project’s 
lifetime, (1) the amount of money actually spent, (2) the amount sched- 
uled to have been spent and (3) the original estimate of the total pro- 
ject cost. 

Before proceeding with the discussion, it is necessary to consider 



the following terms: 
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1, Let C represent the original estimate of the total project cost, 

2, Let A be the amount of money scheduled to be spent by time t, 

3, Let A 1 represent the amount of money actually spent at time t. 
For the sake of clarity, a graphical interpretation of these symbols ap- 
pears on the following page in figure 2,2, Two points can be made con- 
cerning this diagram. First, the actual spending curve is known only 
for the completed part of the project; therefore, for time subsequent to 
t this curve is represented by a dotted line to indicate that it is an 
"educated guess," Of course, since t approaches T, the "educated guess" 
is based on an ever decreasing time interval and should, therefore, be 
increasingly accurate. The second point to be made is that the terminal 
points of the actual spending curve and the estimated project cost curve 
need not be coincident— that is, the project may cost more (or less) than 
the original estimate. 

In consonance with the "definitions" of the symbols A, A* and C, 
the financial progress component is 

( 2 - 3 ) 

c 

The cost progress measure (2,3) behaves in precisely the same way 
as the work progress measure (2,2), A value of I equal to one implies 
that scheduled expenditures and actual expenditures agree exactly — that 
is. A* ** A, A value of I c larger than one means that (A* - A)<0 and 
less money has been spent by time t than was originally estimated. Sim- 
ilarly, if I c is less than unity, then at time t more money has been 
spent than was planned and (A f - A)>0, The following table summarizes 
the implications of various values of the financial progress component 



of the status index. 
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Figure 2.2: Actual and estimated project spending curves 
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Value of I c 



Implication 



less than one 
equal to one 



overrunning budget 
exactly on budget 
underrunning budget 



greater than one 



2 • 3 The Status Index 

PROJECT’S progress control feature, the status index, is the pro- 
duct of the cost and time measures: 



The status index indicates agreement between planned and actual progress 
when its value is one. A value larger than unity indicates actual prog- 
ress is ahead of planned; a value less than one suggests that actual 
progress has fallen behind scheduled progress. 

Since the status index is a product, it is necessary to be aware of 
the cancelling effects of its formation. For example, if I c = 0.5 and 
I w ** 2.0 then SI ~(0.5)x (2.0) = 1.0. This value would imply that the 
project was on schedule with respect to both cost and work progress— 
certainly this is not correct. The problem just described constitutes 
one aspect of the more general question of interfacing the status index 
with ICES PROJECT. This is to be the subject of the next chapter. 



SI = I x I 
c w 



(2.4) 



CHAPTER THREE 



The Status Index and ICES PROJECT 

3.1 Data Structure 

3.2 Computation of the Cost Component 

3.3 Computation of the Work Progress Component 

3.4 Project Sub-networks 
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The Status Index and ICES PROJECT 

Providing PROJECT with a progress monitor can be thought of as a 
two step operation. The first step, considered in the last chapter, in- 
volved developing a suitable monitor. The second step centers around 
the problem of interfacing the monitor with PROJECT. As will be shown, 
more is involved in the implementation of the status index than just pro- 
gramming considerations. The philosophy behind the computations, toge- 
ther with the assumptions and limitations inherent in the monitoring 
feature, are the subject of this chapter. 

3.1 Data Structure 

Each project may have as many as eight disk files associated with 
it. These files, called NAME1 through NAMES (viz. WALTHAM3) are used 
to store data on the particular paoject under consideration. 

PR0JECT f s progress monitoring feature deals with disk file NAME8. 

The structure of this file consists of three levels: two levels are 

used for bookkeeping and can be thought of a pointers , the third level 
is used for data storage. The first time reported progress data is 
stored for a particular project, NAME8 is established by creating a 
first-level logical record ten words* long. The first word of this rec- 
ord contains the address of a second-level logical record which is NOACT 
words long, where NOACT is the number of activities in the network. 

Each word of the second logical record contains a zero when it is first 
created. When progress data is reported for a particular activity, a 
third-level record corresponding to that activity is created; this rec- 
ord is also ten words long. The address of this third level record is 



* A n word M in computer terminology is a unit of storage. 
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stored in the second level logical record in the position corresponding 
to the activity under consideration.* The logical record on the third 
level contains the reported progress data. The first word of this record 
contains the cost (if reported), the second word contains the reported 
activity finish date (if reported) and the third word contains the start 
date (if reported). All dates are stored as project workdays. If any 
of the possible data items— -cost, finish date or start date — are omitted, 
the corresponding word of the activity data record is not changed; this 
means that until a cost, finish or start is reported, the corresponding 
word in the activity data record contains a zero. 

In order to add some measure of clarity to the foregoing descrip- 
tion of NAME8, the following example and diagrams are presented* Con- 
sider a project having seven activities. Assume progress is first re- 
ported on the third activity: this creates disk file NAME8 for the pro- 

ject and stores the data as shown in figure 3.1 on the following page. 
Arrows are used to denote the pointer arrangement alluded to earlier. 

If progress is subsequently reported on the second activity, NAME8 would 
be structured as shown in figure 3.2. 

It seems that much space is unused in NAMES. This JLs the case; 
however, it is anticipated that the uncommitted space will be used in 
connection with resource allocation and leveling in the near future. 

3.2 Computation of the Cost Component 

As discussed earlier, the cost component of the status index is 



* The activities comprising a network are ordered topologically. Thus, 
if a network consists of activities 5, 10, 20, 25 and 30, activity 5 is 
the first activity, activity 10 is the second, and so on. If progress 
is reported on the third activity, the third word of the second-level 
logical record will contain the address of a third-level logical record 
which itself contains the reported progress data for, in this example, 
activity 20. 



LEVEL 1 
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Figure 3.2: Name 8 after progress is reported on two activities 



In order to carry out this computation for time t, it is necessary 
to know (1) the sum of the estimated costs for each activity (this is C), 
(2) the amount of money planned to be spent by time t (this is A) and (3) 
how much money was actually spent by time t (this is A 1 ). There are two 
very significant points to be made* First, costs are based strictly on 
activity costs; no effort is made to take into account overhead costs* 

The second point is that if an activity is in progress at the time a com- 
putation is called for a linear portion of the cost assigned to that ac- 
tivity is taken* For example, assume that a particular activity has been 
assigned an estimated cost of $600; if a computation is requested when 
the activity ought to be two-thirds complete, this activity’s contribu- 
tion to the estimated cost to date figure will be $400, 

The method of determining the estim ated cost to date for the project 
is most clearly explained by using a flow chart of operations, as found 
in figure 3.3 on the next page. The actual cost to date is computed in 
exactly the same fashion except that if an actual cost for an activity 
has not been reported, it is assumed that the estimated cost for that ac- 
tivity is accurate and is a reasonable figure on which to base the com- 
putation. If it is found that there is neither an actual nor an estimated 
cost for a particular activity this activity makes no contribution at all 
to the actual cost to date figure. 

It is clear that a limitation of the system is that an estimated cost 

must be available on at least one activity if the cost component or the 

status index is to be computed. This requirement obtains because if no 

estimated costs are available, the cost component would be (), hence 

0 
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Figure 3.3: Determining the estimated total cost to date 
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indeterminant, A second limitation is that if actual costs are not re- 
ported for activities, then in equation 2,3 A = A 1 and I c = 1*0. Thus, 
if actual costs are not reported, the status index is nothing more than 
the work progress component tagged with a different name, 

3 • 3 Computation of_ the Work Progress Component 

The work progress component of the status index is 

I w 55 J - (T 1 - T) , where J = K(1 - t). 

J ‘ T 

The determination of J is straight-forward since K, t and T are 
known. When t = T, as was pointed out earlier, J is zero and the com- 
putation of I w is not allowed; in PROJECT, a check is always made to in- 
sure that J has a non-zerro value* 

Assuming that J is valid, it remains only to determine the value of 
T f , the latest revised estimate of the job duration* This computation 
is based on the reported progress information for the network activities 
which has been stored in NAME8. Reported progress data on an activity 
may consist of an estimated total cost, a start date, a finish date or 
any non-repet itive combination of the these items* Since costs play no 
role in computing the work progress component, there are four cases to 
be considered for each activity in the network: (1) Neither a start 

nor a finish has been reported. In this case, it is assumed that the 
duration as originally input is accurate and that the activity will be 
executed at the time specified by the working schedule. (2) A start 
date has been reported but a finish date has not. In this situation, 
the original activity duration is used to compute a finish date for the 
activity; the activity under consideration is then fixed in time by these 
two dates, (3) A finish date has been reported but a start date has 
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not. This case is analogous to the preceding one in that the original 
activity duration and the reported finish date are used to compute a 
start date; these dates then serve to fix the activity in time. (4) 

Both a start and finish date have been reported. Here* the given dates 
fix the activity in time and are used to compute a new activity duration. 

The primary function of the reported start and/or finish data is to 
fix certain activities in the network with respect to time. This n fixed 
schedule 1 * information is used as input data to perform the standard for- 
ward pass algorithm; this forward flowing of the network yields the la- 
test revised estimate of the job duration, T’. Note that a backward pass 
is not made using the fixed schedule information. This is because the 
backward pass is useful for determining (1) the network’s critical path 
and (2) total and free float associated with each activity; neither of 
these items is of particular concern when determining the work progress 
component of the status index. 

3.4 Project Sub -netw orks 

Thus far all discussion has centered around performing progress 
monitoring computations for the project network as a whole. It is en- 
tirely reasonable, quite likely, in fact, that the project manager may 
be deeply concerned about the performance of one or several subsets of 
network activities. PROJECT provides several methods of identifying such 
subsets— ref erred to here as project sub-networks. Moreover, PROJECT’S 
progress control feature is capable of performing status index computa- 
tions for sub-networks in a fashion similar to the method used for the 
network as a whole. The word ’’similar** is stressed in the preceding 
sentence because the network and sub-network computations differ on one 
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basic point as will be explained in the following paragraph. 

In performing a status index computation for a sub-network, all ac- 
tivities not a part of the subset being considered are assigned a zero 
duration. The idea here is to retain activity interdependencies while 
eliminating information which may be prejudicial to the computation for 
the sub-network* A consequence of assigning zero durations to activi- 
ties not in the sub-network is that reported progress data on activities 
which are a part of the sub-network cannot justifiably be used to fix 
these activities in time as was done when the computation was made for 
the network as a single entity. The following example will serve to 
clarify this point. Consider the network shown in figure 3,4a, Suppose 
the sub-network of interest consists of activities 10 and 40, The sub- 
network can be pictured as in figure 3,4b, The sub-network duration is 
four time units. Now assume (1) that activity 40 started on schedule 
(day 8) but finished one day late (day 10) and (2) that sub-network 
computations for determining T 1 were based on the same algorithm used 
for the network as a whole. Under these conditions, activity 40 would 
be constrained to start on day 8 and finish on day 10; this would yield 
a sub-network duration of nine time units when, in fact, it took but five 
time units to complete the activities of interest. In order to avoid 
this misleading situation, the reported progress data for a sub-network 
of activities is used anl/£ to determine revised durations for activities 
comprising the subset. Thus, unless both a start and finish date are 
given for an activity, it is assumed that the original duration is ac- 
curate and may be used as a basis for computing the latest revised esti- 
mate of the sub-network duration, A very significant ramification of 
this basis for computing the sub-network T 1 is that so long as the 
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durations of activities in the sub-network do not change, I w for that 
subset of activities will be unity, regardless of whether the activity 
was completed between its scheduled dates* For clarification of this 
point, consider the network shown in figure 3. Ac. Suppose activity 20 
actually took five time units to complete instead of four as planned. 

Both the latest revised estimate and the original estimate of the sub- 
network (activities 10 and AO) duration would be five time units and are 
not affected by the delay in activity 20 since this activity is not a 
part of the sub-network of interest. 

In addition to the method of determining the sub-network duration, 
the method of arriving at the amount of time recoverable for a sub- 
network must be discussed. This computation is quite straight-forward. 
The original estimate of the sub-network duration is divided by the ori- 
ginal estimate of the project duration; this quotient is multiplied by 
the estimate of time recoverable for the project and .the result is taken 
as the time recoverable for the sub-network. For example, say project 
has a duration of forty days and that a sub-network of interest has a 
duration of ten days* If the estimate of time recoverable for the pro- 
ject were eight days, then the time recoverable for the sub-network would 

be ( 10) x 8 or two days. 

AO 

In closing this discussion of sub-networks and the computations re- 
lated to them, it should be pointed out that cost computations — both es- 
timated and actual — are carried out in exactly the same way as they are 
performed for the network as a whole. 

This chapter has dealt with the question of interfacing the project 
monitor with ICES PROJECT. Pertinent algorithms, limitations and assump- 
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Figure 3.4a: A sample network 
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Figure 3.4b: The sub-network consisting of activities 10 and 40 
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Figure 3.4c: Effect of duration changes for activities not in the sub-network 
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tions have been discussed in detail. The computer programs, 
illustrating how these algorithms, limitations and assumptions have 
been used in this development, may be found in Appendix A of this 
paper* The next section. Chapter Four, presents the commands 
associated with PROJECT^ progress control feature. 



CHAPTER FOUR 



The Commands Associated with PROJECT* s Pro gress Monitor in, p; Feature 

4.1 The PROJECT Command Structure 

4.2 Commands — Input 

4.3 Commands — Output 




* 
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The Commands Associated with PROJECT’S Progress Monitoring Feature 
A basic part of any problem-oriented computer language is the com- 
mands which define the user-subsystem interface. For this reason, it 
is of value to give a brief description of how command requests are 
handled by ICES PROJECT. The following steps effectively summarize this 
procedure : 



Step Is User prepares and submits com- 

mand 



Step 2: The ICES Command Interpreter 

"reads" the command 

Step 3: On the basis of what was read 

by the Command Interpreter, 
certain programs are executed 

Step 4: Icetran programs compute re- 

quested results and output them to 
the user. 



Illustrated and discussed in this chapter are the commands x;hich 
have been written for use with PROJECT’S progress control feature. The 
purpose is to examine the capabilities of the commands so that the in- 
terested user may, if necessary, modify them to suit his own needs. 

4 . 1 The PROJECT Command Structure 

Before embarking on a discussion of the specific commands which 
constitute a part of the progress monitoring feature, it is worthwhile 
to make some general observations concerning the format of command com- 
position in ICES PROJECT. All PROJECT commands are composed of three 



parts: 
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1) an operation name, 

2) a data lable and 

3) an object phrase 

The operation name is the first word of any command; it indicates 
the general type of operation to be carried out* The data lable speci- 
fies whether the command applies to all project networks handled by 
PROJECT at a given time or to a particular project network. Finally, 
the object phrase, which may consist of one or more words and numbers, 
serves to specify more precisely the nature of the work to be done by 
a command. For a def initive discussion of the commands associated with 
the subsystem, the reader is referred to The Use of ICES PROJECT^; the 
brief overview presented here should, however, provide the background 
necessary for the ensuing examination of the commands specifically re- 
lated to the progress monitoring feature. 

The basic operation names used by PROJECT’S monitoring feature are: 
ASSIGN, PRINT, PLOT and REPORT. In the remaining portion of this chap- 
ter, the basic operation names are examined with a view towards build- 
ing useful commands for project control* 

4 • 2 Commands — INPU T 

It was indicated in Chapter Two that two classes of data must be 
provided in order to use PROJECT’S progress monitor. The first type of 
information is the reported activity progress data. The command to be- 
gin storage of this data is Command 1: 

2 

The Use of ICES PROJECT, Bernard-Andre Genest (Editor), Department of 
Civil Engineering, Massachusetts Institute of Technology, Cambridge, 
Mass., 1967. 
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REPORT (' pro j name') 






a 



PROGRESS 
J COST 
\ START 

(finish J 



i 



(AS OF) date* 



The cards which follow Command 1 are the activity progress data cards. 
The first number on each card must be the activity number (if an ac- 
tivity-on-node network) or numbers (if an activity-on-arrow network). 

As indicated above, Command 1 may take any of four forms depending upon 
which reporting option is desired. Designate option la to be PROGRESS, 
lb to be COST, lc to be START and Id to be FINISH. Consider command op 



tion la: 



REPORT ( 1 pro j name’) PROGRESS (AS OF) date 
On the data cards, following the activity number nay appear (in an£ or- 
der) the word START followed by the start date, FINISH followed by a 
finish date and COST followed by an amount. The data may be input with- 
out using the modifiers START, FINISH and COST by preparing the data 
cards so that the order of information is activity number (s), start 
date, finish date and cost. When the M no modifier 11 input option is used, 
both a start and finish date must be specified; moreover, these dates 
must be calendar dates (e.g. 1 July 1967). With the “no modifier" in- 
put form, the cost data for a particular activity is optional and may be 
omitted. For the command option 1 w ith modifiers any non-repetitive 
combination of the words COST, START and FINISH is acceptable. Thus, 
the PROGRESS command may be used to store information on only start 
dates, only finish dates, finish dates and costs, etc. 

Progress reporting options lb, lc, and Id (corresponding to COST, 
START, and FINISH, respectively) constitute subsets of the PROGRESS 



* See Appendix B 
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command in that they are used when data is reported on just costs, only 
start dates or just finish dates. For these options, too, the identi- 
fier (the word COST, START or FINISH) may be omitted. 

The last card in a series of data cards should have the word LAST 
punched on it. This insures that the ICES command interpreter will pass 
on to the subsequent command in the normal fashion. 

A significant point should be made regarding the reporting of pro- 
gress. There is no reason why estimates of activity finishes, starts or 
costs cannot be submitted. Assuming that such data is prepared i^ith 
care, this practice will result in a more comprehensive comparison be- 
tween actual and planned work than would result if this procedure is not 
followed. 

The second class of input data referred to earlier consists of a 
single number. It is the amount of time recoverable and was denoted by 
the symbol K in Chapter Two. Once the amount of time recoverable has 
been estimated. Command 2 is used to store it: 

ASSIGN ( f pro j name* ) TIME (RECOVERABLE) K 
where k represents the time recoverable in units of days or weeks, with 
days assumed if neither time unit is specified. Should the user neglect 
to assign it, fifteen percent of the job duration is automatically taken 
as the amount of time recoverable; a message indicating this is printed 
out. If, after the initial assignment of time recoverable, it is de- 
sirable to modify this estimate, Command 2 should be employed again. 

4 • 3 Commands — Output 

PROJECT’S progress control feature provides several very useful 
output features. All of them stem from two basic operation names: 



( days! 

\UEEKSj * 



PRINT and PLOT. 
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If the value of the status index or any of its components is de- 
sired for a single date, the appropriate option of Command 3 ought to 
be used: 

( phase^ 



PRINT ( 'projname ' ) INDEX (FOR) <j TIME ^ (AS OF) date [ ^select} 



I STATUS^ 

TIME V 
COST J 

It was pointed out earlier that if the status index is requested, both 
of its components will be examined to see if they differ from unity by 
more than one-tenth; if there is an offending component, its value is 
printed. As is indicated in Command 3 and as was discussed in Chapter 
3, it is possible to request the status index or its components for a 
pre-defined phase or on the basis of some user-defined selection option. 
For more detail on these selection options, the reader is referred to 
Chapter 10 of The Use of ICES PROJECT . 

Should the value of any project monitor be desired as it varies 
between two specified dates. Command 4 would be used: 

j ( phase! \ 



PRINT ('projname’) INDEX (F0R){ TIME /BETWEEN date 1 and date 2^electjy 



( STATUS^ 

TIME / 

, COST J 

If the interval between the first date and the second is less than 100 
workdays, increments are in steps of five workdays; if the interval is 
larger than 100 workdays, increments are in steps of 10 workdays. 

Of great value In examining both project and sub-network progress 
trends is a graphical display of the status index (or the requested com- 
ponent) versus time. Command 5 was developed just for this purpose: 



(STATUS^ / J phased 

PLOT ( 1 projname 1 ) INDEX (FOR) i TIME ( BETWEEN date 1 and date 2 {^select 1 

JCOST J 



/ J phase 
J y select 
list 



The comments regarding the incremental stepping apply here as they did 
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for Command A. Moreover, in both Commands A and 5 it makes n<3 differ- 
ence whether the starting date is date 1 and the finish date is date 2 
or vice versa. A significant point regarding Commands A and 5 is that 
they permit the computation of a status index for any point in time 
which falls within the project’s lifetime. Thus, the project manager 
may request a computation for some future time in order to get a pro- 
jection of project status if present progress trends continue, When- 
ever progress is reported using any of the options associated with Com- 
mand 1, the date which is a part of the REPORT command is stored. Any 
computation which is requested for a date late r than the date accompany- 
ing the most recent REPORT command is considered to be a projected value. 
Commands 3 and A make no distinction between projected and actual com- 
putations; the PLOT command, however, prints actual values with a 
and projected values with a A final item of interest concerning 

the PLOT command is that it has been written with a linear fill-in fea- 
ture, The effect of this feature is to fill in the space between suc- 
cessive ordinates on a strictly linear basis. The linear fill-in does 
not distort the display in any fashion but serves to make trends indi- 
cated by the graph easier to spot. 

This chapter has provided some background on the structure of com- 
mands in PROJECT and has discussed the commands currently available for 
use with PROJECT’S progress control capability. The next section, Chap- 
ter 5, presents a sample problem which illustrates how the progress con- 
trol capability may be used in practice. 



CHAPTER FIVE 



Sample Problem : The S outhwest P lant 

5.1 The Project 

5.2 Transportation 

5.3 Major Items of Construction 

5.4 The Network 

5.5 Monitoring SW PLANT Progress 

5.6 Summary 
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A Sample Problem: The Southwest Plant 

All comments made thus far on PROJECT* s progress control feature 
have been of either a developmental or theoretical character. The pur- 
pose of this chapter is to demonstrate how the progress control feature 
can be used on an actual project. 

5 • 1 The Project 

The task is to build a sewage disposal plant on a small island in 
Massachusetts Bay. Sewage will be piped from Boston to the disposal 
plant through an underwater pipeline. On the island, the sewage will 
pass through a mechanical pulverizer where the solids will be reduced 
to small particles; then the waste will be treated chemically prior to 
its being released into the sea. 

5 . 2 Tran s port at ion 

The contractor must provide transportation for all of his men, ma- 
terials and equipment to the island. The City of Boston has provided 
docking facilities on the mainland for the contractor's use. 

5 • 3 Majjpr_ Items of Constru cti on 

The SW PLAIIT project has the following major components: 

1. An underwater pipeline must be laid from the island station 
to the Boston shore. 

2. Chemical treatment and pulverizing equipment must be ordered 
and installed. 

3. A steel frame superstructure, in which the pulverizer and 
chemical treatment units will be mounted, must be erected. 

4. A permanent boat landing and breakwater must be built as a 
part of the project. 

5. An electric generator must be ordered and installed on the 
island . 
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6. A small station house must be built to house the resident op- 
erating personnel, the system controls and the generator* 

5 . 4 The Network. 

The SW PLANT project will be described by an activity-on-node 
network and will consist of the activities and events listed in figure 
5.1* Note that in addition to activity descriptions and durations, ex- 
timated activity costs are also provided for each activity. Figure 5.2 
shows the SW PLANT network; note the special arrow relationships. The 
project schedule is given in figure 5.3. 

5.5 Monitoring SW PLANT PROGRESS 

The project manager has determined that the SW PLANT project could 
be completed in 32 work days instead of the alloted 38 if a maximum ef- 
fort were made. Thus, the time recoverable for this project is six 
days; this information is stored using the command 

ASSIGN 'SW PLANT' TIME RECOVERABLE 6 DAYS 
as indicated in figure 5.4. 

Owing to a special concern with activities related to piping and 
those activities concerned with the procurement and installation of the 
generator and chemical treatment equipment, the project manager has, at 
the outset, defined two phases as indicated in figure 5.4. 

Progress in first reported on activities in the sample network on 
11 January 1967. Since work started on 2 January, seven working days 
have elapsed. The data following the REPORT command in figure 5.4 il- 
lustrates three ways in which progress can validly be reported. The 
data for activity 210 shows the "no modifier" option; activity's 310 
data illustrates how dates relative to the project start can be used in 
the command; finally, the data for activity 410 illustrates that when 



STORE 



SW PLANT 



NETWORK 



EVENTS 



NODE NO. 


DESCRIPTION 








100 


'START PROJECT' 








200 


•SPECIAL ITEMS PROCUREO' 








300 


•transportation arrangeo* 








400 


'ISLAND LANDING COMPLETEO' 








500 


•CONSTRUCTION COMPLETEO' 








600 


•TEST ING BEGINS' 








700 


'UNDERWATER PIPELINE LA10' 








1000 


•PLANT COMPLETED' 








ACT! 


IV1TIFS 












ACTIVITY 


ESTIMATED 


NODE NO. 


DESCRIPTION 


OUR A T I ON 


OOLLAR COST 


1 10 


'GET PIPE-LAYING EQUIP, t LAY PIPE* 


27 


COST 


22000 


210 


'TRANSPORT GENERATOR* 


l 


COST 


1000 


220 


•TRANSPORT CHEM. TREATMENT EQUIPMENT' 


2 


COST 


1000 


260 


•INSTALL CHEM. TREATMENT EQUIP.' 


2 


COST 


4000 


310 


•CLEAR LANDING L CONST. WHARF' 


2 


COST 


16000 


330 


•PUT IN CRANES* 


1 


COST 


2000 


340 


•PUT IN BREAKWATER* 


20 


COST 


80000 


410 


•CLEAR BLDG. SITE t PLACE FNDS. * 


10 


COST 


25000 


420 


•TRANSPORT CONSTRUCTION FQU1PMRNT * 


1 


COST 


5000 


46 0 


•PUT UP STATION HOUSE' 


1 


COST 


2000 


460 


'ERECT SUPERSTRUCTURE' 


20 


COST 


10000 


470 


•ROUGH IN PIPING' 


4 


COST 


5000 


5 10 


' MAKE f INAL PIPING CONNECTIONS* 


1 


COST 


2000 


5?0 


•INSTALL VALVrS AND GAUGES' 


1 


COST 


1000 


630 


•MAMT FINAL ELECTRICAL CONN.' 


1 


COST 


1000 


640 


'PUT IN WIPING' 


3 


COST 


10000 


610 


•TEST ELECTRICAL SYSTEM' 


1 


COST 


1000 


6?0 


'TEST PULVERIZER' 


l 


COST 


1000 


630 


•TEST CHEMICAL EQUIPMENT* 


2 


COST 


2000 


MO 


'TIE PIPE! INE TO ISLAND STATION' 


l 


COST 


1000 



Figure 5.1 
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PROJECT "S.W. PLANT 



SF 




Figure 5*2 
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ASSIGN *SW PLANT* START 1 JANUARY 1967 



PROJECT SW PLANT HAS BEEN. A SS I GNEO TO START ON DAY 1 JAN 1967 
PRINT * SW PLANT* SCHEDULE 



**$**$$$*$$*$******$**$$$***$$$$*$$ 

♦ SCHEDULE FOR PROJECT * SW PLANT* ♦ 
***************£*****:************** 

PROJECT OUR AT I ON IS 38 WORK OAYS, WORK WEEK IS 5 OAYS 

WORK IS SCHEDULEO TO START ON 2 JAN 1967 ANO TO BE COMPLETED ON 22 FEB 



THE PROJECT * SW PLANT* NETWORK HAS 
20 ACTIVITIES 
8 MILESTONE EVENTS 

NO HOLIDAYS FOUNO IN SW PLANT HOLIDAY TABLE. 



EVENT SCHEOULE 
****** ******** 



EVENT 


DESCRIPTION 


EARLY 


TIME 


LATE TIME 


100 


START PROJECT 


2 


JAN 


1967 


2 


JAN 


1967 








1 






1 




200 


SPECIAL ITEMS PROCURED 


2 


JAN 


1967 


l A 


FEB 


1967 








1 






32 




300 


TRANSPORTATION ARRANGED 


2 


JAN 


1967 


2 


JAN 


1967 








l 






1 




AO 0 


ISLAND LANDING COMPLETED 


5 


JAN 


1967 


5 


JAN 


1967 








A 






A 




500 


CONSTRUCTION COMPLETED 


16 


FEB 


1967 


20 


FEB 


1967 








3 A 






36 




600 


TESTING BEGINS 


21 


FEB 


1967 


21 


FEB 


1967 








37 






37 




700 


UNDERWATER PIPELINE LAID 


8 


FEB 


1967 


20 


FEB 


1967 








28 






36 




1000 


PLANT CTHPLFTEO 


22 


FEB 


1967 


22 


FEB 


1967 



38 38 

END OF EVENT SCHEOULE 
********************* 



1967. 



Figure 5.3 
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Figure 5.3 (Continued) 
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Figure 5.3 (Continued) 



I- N'T OF SCHEDULE 
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modifiers are used, the data may coine in any order. 

In an effort to get a picture of project status in the near fu- 
ture~~day 10 — the project manager has used another command found in 
figure 5.4: 

PRINT INDEX FOR STATUS AS OF DAY 10 
The requested (projected) value of the status index is 0.77; the work 
progress component is 0.779 and hence, it is also printed. Notice that 
because it was available from a previous command, the project name could 
be omitted from the foregoing command.. 

Also found in figure 5.4 are the commands 

PRINT INDEX FOR TIME AS OF DAY 10 and 
PRINT INDEX FOR COST AS OF DAY 10. 

These commands serve to illustrate that either component of the status 
index may be requested. 

Figure 5.5 is a glimpse into the future of the S W PLANT project. 

By using the PLOT command and specifying the range of interest to be 
the first thirty days of the project, the project manager can see at a 
glance that if present trends continue, he will find himself in an una- 
tonable position. 

Shifting his attention from the project as a whole, the project 
manager next requests the status index as of day 10 for the sub-network 
called PHASE 1; this command is illustrated in figure 5.6 as is the re- 
quest to 

PLOT INDEX FOR STATUS BETWEEN DAY 1 AND DAY 30 PHASE 1 
An interesting point can be noted here. Apparently workday 1 does not 
occur during the execution of the activities in the sub-network PHASE 1. 
This is indeed the case as the project schedule shows; thus, since the 
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ASSIGN *SW PLANT 1 TIME RECOVERABLE 6 DAYS. 



THE ESTIMATE OF TIME RECOVERABLE FOR PROJECT SW PLANT IS 6 DAYS. 



ASSIGN »SW PLANT* PHASE 1 
PHASE 1 OF PROJECT 



210 220 250 LAST 

*SW PLANT* HAS BEEN ASSIGNEO THE FOLLOWING ACTIVITIES, 



210 TRANSPORT GENERATOR 

220 TRANSPORT CHEM. TREATMENT EQUIPMENT 

250 INSTALL CHEM. TREATMENT EQUIP. 



ASSIGN 

PHASE 



' SW 



PLANT* PHASE 2 470 510 520 110 710 LAST 
2 OF PROJECT *SW PLANT* HAS BEEN ASSIGNED THE FOLLOWING ACTIVITIES, 



470 

510 

520 

110 

710 



ROUGH IN PIPING 

MAKE FINAL PIPING CONNECTIONS 

INSTALL VALVES AND GAUGES 

GET PIPE-LAYING EQUIP. & LAY PIPE 

TIE ° I PE L I NE TO ISLAND STATION 



report progress as up n jam 1967 

ACT 210 6 JAN 1057 4 JAN 1957 2000. 

NO "ODIFIFRS. ASSUMED INPUT ORDER TO BE START, FINISH, COST (OPTIONAL). 

310 START l FINISH ? COST 17000. 

ACT 410 FINISH 20 JAN 1957 START 5 JAN 1967 COST 27000. 

LAST 

PRINT INDEX FOR STATUS AS OF DAY 10 

**** THE VALUE OF THE STATUS INDEX IS 0.77 FOR DAY 10 **♦* 

**** NOTE — VALUE OF WORK PROGRESS COMPONENT IS 0.779 **** 

PRINT INDEX FUR TI*E AS OF DAY 10 

**** THE VALUE OF THE WORK PROGRESS COMPONENT IS 0.78 FOR DAY 10 ***< 

PRINT INDEX FOR COST AS OF DAY 10 

***-♦ THE VALUE OF THF COST COMPONENT IS 0.99 FOR DAY 10 



Figure 5.4 
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PLOT I NOFrX FOR STATUS BETWEEN DAY l AND DAY 30 
INDEX DATA WILL BE PRESENTED IN 5 DAY INCREMENTS. 



INDEX PLOT FDR PROJECT SW PLANT **•* 



IN THE FOLLOWING GRAPH 

ASTERISKS (*) INDICATE ACTUAL VALUES 

DASHES !-) INDICATE PROJECTED VALUES 



2.DD* 



1.8D* 



1.6D* 



l . 2D* 



1 .DD* 



D.BO* 



0.60* 



O.'.Q* 






D.) * ♦ + 

l 7 13 19 25 31 



DAYS 



Figure 5.5 
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PR I NiT INDEX FOR STAT'JS AS OF D A V ID PHASE 1 

***♦ THE VALUE OF THE STATUS INDEX IS D.94 FDR DAY ID »*** 

•*** NOTE -- VALUE DF CUST COMPONENT IS D.833 
PLOT INDEX FOR STATUS BETWEEN DAY I AND DAY 3D PHASE l 
INDEX DATA WILL RE PRESENTED IN 5 DAY INCREMENTS. 

WORKDAY l ODES NOT DCCJR DURING THE EXECUTION OF THIS SUBSET DF ACTIVITIES. IT IS NOT VALID. 



*»** INDEX PLOT FOR PROJECT SW PLANT »»*• 



IN THE FOLLOWING GRAPH 

ASTERISKS (•) INDICATE ACTUAL VALUES 

DASHES l-> INDICATE PROJECTED VALUES 



2 .DD ♦ 



l . 8D * 



1.6D* 






1.20 + 



l . )D****4 



* * * * 

**«*« 



'•20 



f '.> ♦ ♦ ♦ ♦ » 

I 1 13 19 25 31 DAYS 



Figure 5.6 
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sub-network has not started, its status index value is unity by defini- 
tion* This is indicated on the plot in figure 5*6* 

On the twentieth day of the project progress is reported as shown 
in figure 5*7. One new command is introduced here; it is 

PRINT INDEX FOR STATUS BETWEEN DAY 1 AND DAY 20. 

Based on incremental steps of five working days, the index is computed 
and printed in the same fashion as when it is requested for a single 
date. Notice that the values reported for the status index in figure 
5*7 start at day 1 with a lower value than was recorded on the basis of 
the progress reported on 11 January 1967. (c.f. figure 5.4). The reason 
for this is that the values recorded in figure 5.7 are based on differ- 
ent progress data than is the index value found in figure 5.4. 

Figure 5.8 shows what progress was reported for the project on day 
35. Again, the status index is printed for an interval between two 
specified dates. The projected and actual index values for day 20 which 
were displayed in figure 5.7 showed the SVJ PLANT project to be in an un- 
favorable situation with respect to progress. This information was used 
to good advantage by the project manager; evidence of this is given by 
the near-unity status index values—see figure 5.8— which indicate that 
the project is behaving as planned. The plot of index values over the 
same period (found in figure 5.9) makes the same indication. 

Again, the project manager’s attention shifts to the important sub- 
networks. The plot of the status index for PHASE 2, figure 5.10, shows 
this subset of activities to be performing quite well. Figure 5.11 is 
a plot of the status index for PHASE 1; PHASE 1 seems to have a status 
index which is constant at a value of 0.84. This is a relatively low 
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REPORT PROGRESS AS OF DAY 20 

ACT 340 24 JANUARY 1967 21 FEB 1967 830D0. 

NO MODIFIERS. ASSUMED INPUT ORDER TO BE START, FINISH, COST (OPTIONAL). 

ACT 460 FIN 33 STA 14 COS 12DD0. 

ACT 47D COST 350D. STA 15 FIN 18 

LAST 

PRINT INDEX FOR STATUS AS OF DAY 20 

THE VALUE OF THE STATUS INDEX IS D.65 FOR DAY 2D 
**** NOTE — VALUE OF WORK PROGRESS COMPONENT IS 0.653 
PRINT INDEX FOR STATUS BETWEEN DAY 1 AND DAY 20 
INDEX DATA WILL BE PRESENTED IN 5 DAY INCREMENTS. 

♦*** THE VALUE OF THE STATUS INDEX IS 0.84 FOR DAY 1 
NOTE — VALUE OF WORK PROGRESS COMPONENT IS D.834 ♦*** 

♦*** THE VALUE OF THE STATUS INDEX IS D.80 FOR DAY 6 
NOTE — VALUE OF WORK PROGRESS COMPONENT IS D.807 **** 

***♦ THE VALUE OF THE STATUS INDEX IS 0.76 FOR DAY ll ♦♦♦♦ 
♦*** NOTE -- VALUE OF WORK PROGRESS COMPONENT IS 0.77D **** 

THE VALUE OF THE STATUS INDEX IS 0.71 FOR DAY 16 
NOTE -- VALUE OF WORK PROGRESS COMPONENT IS 0.717 
PRINT INDEX FOR STATUS AS OF DAY 2D PHASE 1 

**** THE VALUE OF THE STATUS INDEX IS D.84 FOR DAY 2D 
NOTE -- VALUE OF COST COMPONENT IS D.833 **** 

PRINT INDEX FOR STATUS AS OF DAY 2D PHASE 2 

♦*** THE VALUE OF THE STATUS INDEX IS 1.06 FOR DAY 20 **♦* 



Figure 5,7 



REPORT PROGRESS AS OF DAY 35 



220 14 FEBRUARY 1967 14 FEBRUARY 1967 
NO MODIFIERS. ASSUMED INPUT OROER TO BE START, FINISH. COST (OPTIONAL). 

250 FINISH 16 FEB 1967 START 16 FEB 1967 

LAST 

PRINT l NOE X FOR STATUS AS OF OAY 35 

**** THE VALUE OF THE STATUS INOEX IS 0.97 FOR DAY 
PRINT INOFX FOR STATUS BETWEEN 1 ANO 35 
INOEX OATA WILL BF PRESENTED IN 5 DAY INCREMENTS. 
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INDEX 
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PLOT INDEX FDR STATUS BETWEEN 1 AND 35 

INOEX DATA WILL BE PRESENTED IN 5 DAY INCREMENTS. 



**♦* INDEX PL DT FOR PROJECT SW PLANT 
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value considering that only three days remain in the project* s lifetime. 
It would certainly behoove the project manager to investigate this the 
activities comprising PHASE 1 very carefully. 

The final area of interest to the project manager consists of all 
network activities with node numbers greater than or equal to 510; this 
includes activities 510, 520, 530, 540, 610, 620, 630 and 710, The 
value of 1.01 for the status index (printed below the graph in figure 
5,11) indicates that this user-defined subset of activities is on sched- 
ule, 

5*6 Summary 

In this chapter, every working command of PROJECT’S progress con- 
trol feature has been demonstrated on an actual project. It has been 
shown how the status index and its components may be useful as indica- 
tors of problem areas within the project. 



CHAPTER SIX 



Extension s and Comments 

6.1 Extensions 

6.2 Some Concluding Remarks 
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Extensions and Comments 

The aim of this chapter is to draw together the several facets of 
PROJECT'S progress control feature. This will be done by first discus- 
sing some extensions of the capability and then by making some observa- 
tions of a general nature. 

6 • 1 Extension s 

Calculation of the work progress measure for any sub-network re- 
quires that the forward flowing procedure be twice applied: once to 

determine the planned sub-network duration and the second time to cal- 
culate the latest revised estimate of the sub-network duration. Each 
time the forward flowing takes place, a check is made to ascertain if 
any special arrow relationships (that is, any arrow relationships which 
are other than finish-start) are present in the network. Thus, this 
check is made twice whenever the status index (or the work progress 
measure) is requested— a time consuming procedure. A worthwhile exten- 
sion would be to improve the efficiency of the progress monitoring ca- 
pability by eliminating the redundant check. 

In Chapter Two, a situation was described when the existing pro- 
ject schedule ceases to be viable. This can occur when the project will 
take longer to complete than was originally planned. Under such circum- 
stances, it would be of great value to have the reported activity pro- 
gress data replace the original activity data. The reported progress 
information would then serve as the basis for calculating a revised pro- 
ject schedule. The implementation of this self-modifying capability 
would constitute a second valuable extension to PROJECT'S progress con- 



trol feature. 
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6 * 2 Some C£r^jidlTijg 

It should be clear from the discussion in previous chapters that 
the computation of the status index is highly dependent on the activity 
progress data reported from the project site. Because of this dependence, 
the significance attachable to the index is bounded from above by how com- 
plete, up-to-date and accurate the reported activity progress data is. 

The great amount of highly detailed cost and work progress data 
available to the project manager is clear evidence that much thought and 
effort has been expended in the area of project progress control. Per- 
haps because such a volume of information was available for the project 
manager, not many people seem to have considered the wisdom and, in 
fact, necessity of compacting the reams of progress data into a more ten- 
able form — -a form useful for pointing out those areas of the project re- 
quiring a deeper investigation. Among those who did recognize the value 
of this course of action was J. S. Baumgartner whose text PROJECT MAN AGE- 
MENT ^ provided the motivation for this work. 

The paramount consideration in the development and implementation 
of the progress monitor has been to keep it simple — so the project man- 
ager can grasp it at a glance— yet meaningful. When, in the development 
of a feature like PROJECT’S progress control capability, the emphasis is 
placed on simplicity and ease of understanding, sophistication must be 
sacrificed to a certain extent. The final point to be made, then, is 

^Co ntrol and Management of Capital Projects , J. W. Hackney, John Wiley 
& Sons, Inc., New York, 1^65, pg. 3. 
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that the status index should not be thought of as a panacea which will 
prevent a project from going awry. Rather, it is but an indicator and 
should never be a substitute for good judgment. 
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APPENDIX A 

Appendix A consists of the programs which were written to implement 
PROJECT'S progress control capability. The programs can be classified 
in two groups: (1) ICETRAN programs for computation and (2) programs 

written in the Command Definition Language, which serve to interpret the 
commands which the user submits. 

The ICETRAN programs are grouped according to their respective load 
modules as follow: 



Load Module PROGFL Load Module PROGST Load Module PROGTR 



PROGFL 


PROGST 


PROGTR 


PROGOL 


PRPORK 


PRGRAF 


PROG IX 


PRKDAT* 


PRS85 


PROGMD 


PRLOGX* 


PROGDJ 


PRSAVE 






PROGET 







& 

The listing of this program is not included here since it is common to 
the entire PROJECT system and was not written specifically for the prog- 
ress control feature. 
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ICE TRAN LISTING 



1 

2 
3 
A 

5 

6 

7 

8 

S. 9 
S. 10 
S. 11 
S. 12 
S. 13 
S. 14 
S. 15 
S. 16 

S. 17 
S. 18 
S. 19 
S. 2D 
S. 21 

S. 22 
S. 23 
S. 24 
S. ? 5 
S. 26 
S. 27 
S. 28 
S. 29 
S. 3D 



SUBROUTINE PROGTR 

COMMON MODE, NUMACT, NO ACT, NUMAR, l COOE , IFL OW,DATEM, DATED, DATEY ,DNUM 
COMMON NDHOL, JOBDUR, A f B,C,D,E,F,G,H,Kl,K2,K3,K4,K5,K6,tINE(?0) 

COMMON NAME, NAME 1 , NAME2, NAME3, NAME4, NAMF5, A3 ! 1 2 ) , M A«E , 08 X X XI 5D ) 

COMMON TABLE, HOLD, I ALPHA! 16) , MONTH! 12),RLXXX!2D),!NTXXX!20) 

COMMON NARROW! P), INCDDE(P), INGRI01P),<TIME!P),IDTIME(P), IDNET(P) 

COMMON SORT ( P ) , JSORTIP) ,<HOLD( P), MDUM<P) , MARROW !P) , l CAL! P) , IHOL! P) 
DYNAMIC ARRAY NARROW, INC ODE, INGRID, KTIME, 13TIME, IDNET,$ORT(D) , 
l J SORT , KHOLO, MDUM, MARROW, I CAL, IHOL 
OOUBLE PRECISION N AM E, N AME l , NAME 2 , N A M E 3 , N A M E 4 , N A M E 5 , BL ANK , M A ME 
OOUBLE PRECISION I ALPHA, FMONTH, OBXXX 
EQUIVALENCE ! 1 NTX X X l 17 ) , I T l MRC ) 

IF ( K 3 I 100, 9D, 100 

C ENTER HERE IF USER HAS SPECIFIED TIME RECOVERABLE DATA. 

100 IFIK5-2) 1,2, 3 

3 WRITE<6,4) NAME 

4 FORMAT! //, IX, 'RESUBMIT TIME RECOVERABLE OATA FOR PROJECT » f AB,». 

I L AST WORD OF COMMAND MUST BE DAYS , WEEKS OR LEFT BLANK.') 

ERROR RETURN 

C TIME RECOVERABLE INPUT AS WEEKS — CONVERT TD DAYS. 

2 1TIMRC=DNUM*K3 
10 WRITE(6»5) NAME, ITIMRC 

5 FORMAT!//, IX, 'THE ESTIMATE OF TIME RECOVER A3LE FOR PROJECT ',A8,» 

IIS »,I5,' 0 AYS . ' , / ) 

RETURN 

C TIME RECOVERABLE INPUT AS DAYS — NO CONVERSION NEEDEO. 

1 ITIMRC-K3 
GO TO 10 

C ENTER HERE IF USER HASN'T SPECIFIEO TIME RECOVERABLE DATA — ASSUME TIME 

C RECOVERABLE TO BE FIFTEEN PERCENT DF THE JOB DURATION. 

9D I T I MRC= I ( • 15)*J0BDUR*.5) 

RETURN 

END 
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ICETRAN LISTING 



S. I 

• 2 

• 3 

• 4 

. 5 

• 6 

• 7 

. 8 

. 9 

• 10 

S. 1 1 
S. 12 
S. 13 
S. 14 
S. 15 
S. 16 
S. 17 
S. 1* 
S. 19 
S. 20 
S. 21 
S. 22 
S. 23 
S. 24 
S. 25 
S. 26 
S. 27 
S. 28 
S. 29 
S. 30 
S. 31 
S. 32 
S. 33 
S. 34 
S. 35 
S. 36 
S. 37 
S. 3 R 
S. 39 
S. 40 
S. 41 
S. 42 
S. 43 
S . 44 

S. 45 
S. 44 
S. 47 
S. 43 



SUBROUTINE PRGRAF 

C PRGRAF PRINTS OUT COST t RESOURCE CURVES 

C INPUT OATA IS IN NARROW, K5, RLXXX, INTXXX, C AB 

COMMON MOOE,NUMACT,NOACT,NUMAR, I CODE, I F L 0 W , 0 AT E M , D AT ED , D A T E Y , DNUM 
COMMON NOHOL, JOBOUR, A,B,C,0,E,F,G,H,<1,<2,<3,K4,K5,K6,LINC(20) 
COMMON NAME, NAME! »NAME2»NAMF3 ,NAME4, NAMF5, A3( 12) , M AME , OR X X X ( 50 ) 
COMMON TABLE, HOLD, I ALPHA ( 16) , MONTH! 12), RLXXX! 20), INTXXX! 20) 

COMMON NARROW! P) , INCODEI P) , INGR I 0 ! P ) , K T I ME ( P ) , I OT I MF ( P i , IONFTt P) 
COMMON SORT! P) , JSORT (P) , KHOLO! P) , MDUM! P) , MARROW! P) , I C AH P ) , I HOL I P ) 
DYNAMIC ARRAY NARROW, INCODE, I NGR I 0 , < T I ME , l OT I ME , IDNFT, SORT ID), 

1 JSORT , KHOLD, MD'JM, MARROW, I CAL, I HOL 
DIMENSION PT ( 102 ) , JOLD (11) 

DOUBLE PRECISION N AM E , N A ME l , N A ME2 , N A ME 3 , N AME4 , N AME 5 , BL ANK , MAME 
9DU8LF PRECISION I ALPHA , FMONTH , OBXXX 
I l=L I NE 1 1 ) 

I2 = LINE 12) 

I 3=L I NE !3) 

I 4 = L I N E ( 4 ) 

I 5=L I NE ( 5 ) 

K 5 = L I NE ( 6 ) 

R l = 1 2- 1 1 
R 2 = I 3-11 
RRR=R1/R2 
12=100*RRR 

C ROUTINE TO REJECT »Y» VALUES OUTSIDE THE RANGE 0. TO 2.0 

DO 3 1=1, <5 

IF! NARROW! I ) -20000)1 ,1,2 

1 IF (NARROW! I) >2,3,3 

C OUTSIDE THE RANGE, PRINT ERROR MESSAGE 

2 I DAY =11-14-1 

SI ZF = N ARROW! D/10000. 

I F ( NARROW ( I ) >4,5,5 

4 NARROW! I )=0 
GO TO 3 

5 NARROW ( I ) =20000 

3 CONTINUE 
C 

C SCALE ALL • Y • VALUES 

v Y= . 0025 

DO 13 I = 1 , K 5 

13 NARROW! I )=Y*NARROW(I ) ♦ . 5 

J 5 = < 5 
C 

C ROUTINE TO MAKE A LINEAR FILL-IN IF FEWER THAN 100 POINTS INPUT 

IF! 100-K5) 14,70,70 
70 DEFINE MARROW, 101 , HALE , LOW 
JI=0 

on 7i 1=1,100 

71 M ARROW ( I ) = P 



49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

73 

79 

80 

8 1 

«2 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 
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On 75 1=1, K5 

Il = (l-l)*lOO/(K5-l)f 1.5 

marrow ( i i ) = narrow( i ) 

I F C J I ) 75 » 75 f 7? 

C SCALE VALUES IN MARROW BETWEEN THIS ANO PREVIOUS POINT 

7? IX = JIM 

JX=l 1-1 

I F ( JX- I X ) 75, 75,73 

73 IEN = JX-IXM 
00 74 J=1 , LEN 
K= I X + J- 1 

74 MARROW (K)= (MARROW! I I ) - M ARROW ( J I ) ) * J / ( I I - J I )♦ MARROW! J I ) ♦ . 5 

75 J I = I I 
DESTROY NARROW 

DEFINE NARROW , 101 , HALF , LOW 
DO 76 1=1,100 

76 NARROW! I ) = MARROW ( I ) 

DESTROY MARROW 

K5 = 1 00 
C 

C LOOP TO PRINT OUT SUCCESSIVE LINES 

14 DO 50 K K = 1 , 50 
00 17 1=1,100 
17 P T ( I ) = * • 

00 30 1 = 1, K5 

1 I = ( I- 1 ) *100/tK5-l >M.5 
IE ( 100-1 1)18,19,19 

18 I 1=100 

19 CONTINUE 

l c ( 51-KK-N ARROW! I )) 30, 20,30 
20 IE! I 1-1 2) 25,25,26 

25 P T ! I I ) = ' * f 
GO TO 30 

26 PT( I I ) = *-• 

30 CONTINUE 

31 Z = ( 51-KK ) / 5 - 
I 1 = 2 

IE ( 7-1 l ) 35,40, 35 

35 WRITE! 6, 36) (PT( I) ,1 = 1, 100) 

36 FORMAT! 10X, • . • , 109A1 ) 

GO TO 50 

40 W=!51-KK )/( Y*10P00.) 

WRI TF (6,41 )W, < PT! I ) , 1 = 1, 100) 

41 FORMAT ! 1 X » F 9 , 2 » , 10 )A1 ) 

50 CONTINUE 

CALL PRS85! 1 1, JS, 13) 

RFTURN 

END 
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26 
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28 

29 
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31 

32 

33 
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36 
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SUBROUTINE PRS85 ( I 1 , J 5, I 3 I 
C THIS PRINTS OUT STATUS-GRAPH INDICES 

DIMENSION P T C 103), JOLOI 10) 

00 1 1=1,100 

1 P T ( I ) = * . * 

DO 6 I = l , J 5 

1 1 = ( I-l)*100/I J5-D + 1.5 
IE ( 100-1 I ) 60,61 ,61 
60 11=100 

61 I F ( 1 00- J 5 ) 2 , 3 , 3 

2 XJ=H/10. 

GO TO 4 

3 IF(J5~33)32,31 ,31 

32 IFC J5-10J33, 33,34 

33 X J = I 

GO TO 4 

34 X J= I / 3 
GO TO 4 

31 XJ=I/10. 

4 JX=XJ 

I F ( XJ-JX)6,5,6 

5 PTC I I ) = '♦' 

6 CONTINUE 

WRITE ( 6, 63 ) ( PTC J ) , J = 1 , 100) 

63 FORMAT* 6X, *0.0 f ,100Al) 

C 

C NOW, FIND WHFRE WAS PRINTED ON THE AB3VE LINE 

N = 0 

xx = ' ♦ * 

on r 1=1,100 

I F ( XX-PT < I ) ) 8,7, 8 

7 N = N + 1 
JOLDCN) =1 

8 CONTINUE 

00 9 1=1 ,102 

9 PTC I ) = * * 

C COMPUTE THE NEAREST INTEGER VALUE FOR THESE POINTS 

IFCN)90, 90,101 
101 AOD=C 13-11 ) / C N— 1 ) 
no 30 1=1, N 
JH0L0=11*( I - 1 ) * ADD* • 5 

10 J 3 = JHOL 0/ I 00 
!F< J3) I I , 12, 1 ! 

11 K = JOL 0 t I ) - 1 
K K = 1 

GO TO (21,22,23,24, 25,26,27,28,29), J3 

12 J2=JH0LD/10-10* J3 
K=JOLO( I ) 

KK = 2 



13 

14 

15 

151 

152 

15 

20 

21 

2 ? 

23 

24 

25 

26 

27 

2 R 

29 

30 

40 

90 

91 
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IF< J2) 14, 13, 14 
IF(J3)20, 15,20 

GO rn (21,22,23, 24,25,26,27,28,29), J2 
J1 =JH0LD-1 0* J2-100*J3 
KK = 3 

K = JOL D (1)4-1 
IFIJI)16,151,16 
1F( J2)20, 152,20 
I F ( J3 ) 20 * 30 , 20 

Gn TO (21,22,23,24,25*26,27,28,29) , J l 
PT(K)=’0» 

GO TO ( 12,15,30) ,KK 
PT{ K)=* l 1 

GO TO ( 12, 1 5 ,30 ) ,KK 
PT ( K ) = 1 2 * 

GO TO (12, 15,30) , KK 
P T ( K ) = • 3 • 

GO TO ( 12,15,30) , KK 
PT (K > = »4» 

GO TO (12,15 ,30) , KK 
PT(K) = ' 5* 

GO TO ( 1 2, 15 ,30 ) ,KK 
P T ( K ) = 1 6 * 

GO TO (12,15,30) , KK 
P T ( K ) = * 7 1 

GO TO (12, 15,30) , KK 
P T ( K ) = * B * 

GO TO (12, 15,30) , KK 
PT ( K ) = 1 9 1 

GO TO ( 12, 15,30) ,KK 
CONT INUF 

WPITE (6,40) (PT ( J ) , J=l, 102) 

FORMAT (9X, 102M , * DAYS 1 ) 

RFTURN 

WR I TF ( 6 » Q 1 ) N 

FORMAT ( / 5 X , 1 ERRORS IN INDEXING, N = ’,12) 

RFTURN 

FND 
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ICETRAN LISTING 



S. 1 
S. 2 
$• 3 

S. 4 
S. 5 
S. 6 
S. 7 
S. 8 

S. 9 
S. 10 
S. 11 
S. 1? P 
S. 13 C 
S. 14 C 
S. 15 
S. 16 
$. 17 

$. 18 



SUBROUTINE PROGDJ 

COMMON MOOE, NUM ACT , NO ACT , NUMAR , I CODE , I FLOW, 3ATEM, DATED, DATEY , DNUM 
COMMON NOHOL, J08DUR, A, B,C, D,E,F,G,H,K1 ,K2,<3,K4,K5,K6,L INEI20) 
COMMON NAME, NAME l , NAME? » N A M E 3 , N AMF , NAMES, A3 f 1 2 ) , M AMF , 08 X X X ( 50 ) 
COMMON TABLE, HOLD, I ALPHA! 16) , MONTH I 12) ,RLXXX( 20) , I NTXXXI 20 ) 

COMMON NARROW! P ) , INCOOE ( P ) , I NGR I 0( P),KTIMF(P),IDTIME(P), IONFT! P) 
COMMON SORT(») , JSORT (P) , KHOLD(P) , MOUM ! P ) , M ARR 0 W ( P ) , I CAL ( P ) , I HOL ( P ) 
DYNAMIC ARRAY N ARROW , I NCODF , I NGR I 0 , K T I M F , I 0 T I ME , I DNF T , SOR T C D ) , 

1 JSORT , KHOLD,MDUM, MARROW, I CAL, I HOL 
DYNAMIC ARRAY K PROG 

DOUBLE PRECISION N A ME , N A ME 1 , N A M E 2 , N A ME 3 , N A ME4 , N A ME 5 , B L ANK , M AM E 
OOUeLF PRECISION I AL PH A , FMON TH , D3 XX X 
FOUI VAL ENCF (KPROG(l) ,OBXXX( 22) ) 

THIS SUBROUTINE IS EXECUTED FROM THE COL SELINX. ITS PURPOSE IS TD 

DESTROY THE ARRAY JSORT AFTER ALL COMPUTATIONS HAVE BEEN MADE. 

DESTROY JSORT 

DFSTPOY KPROG 

RETURN 

ENO 
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29 
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SUBROUTINE PROGST 

COMMON MODE, NUM ACT, NOACT, N’JMAR, I CODE , I FL D W , D A TE M , 0 A TE 0 , 0 A TE Y , ONUM 
COMMON NOHOL, JOBOUR, A, B,C,0,E,F,G,H,KI ,K?,K3,K4,K5,K5,LlNE(20) 

COMMON NAME, NAMFl , N AME 2 , N A ME 3 , N A ME 4 , N AME 5 , A 3 ( 12),MAMF,0BXXX(50) 

COMMON T ABLE , HOL 0, I ALPHA! 16) , MONTH! 12),RLXXX(2D),INTXXX(20) 

COMMON NARROW! P ) , INCODE ! P ) , I NG R I 0 ! P ) , K T I ME t P ) , I OT I ME ( P ) , I ONE T ( P ) 
COMMON SORT! P),JS9RT(P),KH0 LD(P),MDUM(P),marR 0W(P),ICAL(P), IHOL(P) 
DYNAMIC ARRAY NARROW, INCODE, I NGRI 0 , K T I ME , I DT I ME , I ONE T , SORT { D ) , 
l J SORT, KHOLO,MOUM, MARROW, I CAL, I HOL 
OOURLE PRECISION NA M E , N AM E 1 , N A ME 2 , N A ME3 , N A ME4 , N A ME 5 , BL ANK , M A ME 
OOURLE PRECISION I ALPHA , FMONTH, 09XXX 
DOUBLE PRECISION NAME9 
DYNAMIC ARRAY I DPROG 
EQUIVALENCE I D9X XX ( 9 ) , NAMF8 ) 

FQU I VALFNCE ( I N T XXX ( l 5 ) , I 2 ) 

EQUIVALENCE ! I NT X X X I 1 D ) , ! PROG ) 

NAMEB=NAME 

CALL AODNUM! NAME8, B) 

GO TO !10, 20,30,40,50,60,70) ,Kt 
C SEE IF NAMFR EXISTS. IF YES, PULL IOPROGS. 

10 LEN=4*N0ACT 

DISK FILE INF0!?,NAME8, IFSTAT, IH, IL ) 

GO TO ! I I , I 3 , 13 ) , IFSTAT 

C CREATE THF FILE IF NONE EXISTS FOR THIS PROJECT. 

11 DO 12 1=1,10 

12 LINE! I )=D 

DISK 0PFN!2,NAMEB,l) 

C IH IS THE IDENTIFIER OF RECORD ONE OF NAME8. 

I H - 0 

DISK PUT! 2, NAME 8, I H, LINE! 1 ) , l, 40) 

C ZERO IN RECORD OF IDPROG’S. 

DESTROY I DPR OG 

DEFINE I OPROG, NOACT , FULL ,LOW 
C II IS IDENTIFIER OF OF IOPROG RECORD. 

I 1=0 

0! SK PUT !2 , NAME 8, II , IOPROG! I ) , l , LEN ) 

C STORE IDENTIFIER OF IOPROG ROCORO IN 1ST WORD OF 1ST RECORD OF N A ME 8 . 

LINE! l)=II 

DISK PUT! 2 , NAME B, IH, LI NE( l ) , l , 4 ) 

G n TO 14 

C FILE OOFS EXIST FOR this PROJECT. 

13 DISK OPEN! ?, NAMEB, I ) 

DISK GET(2, IH.LINE! I ), 0,0, JUNK,'' EXT) 

T I =LI WE! I ) 

nrFINE IOPROG, NOACT , FULL , LOW 

DISK GFT! 2, « I , I DPROG! I ) , 0, 0 , JUNK , NE X T ) 

C NAMEB EXISTS. STORE DATE OF RFPORT IN THE STATUS WCRO. 

14 (PR 00 = 0 

C PUT THE ACTIVITY NUMBERS IN A LIST. 



49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

' 6 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

73 

79 

80 

31 

8 2 

83 

34 

85 

36 

37 

38 

89 

oo 

91 

92 

93 

94 

95 

96 

97 

9 8 

99 

ino 

101 
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K I — l 

CALL RETRVE 
RETURN 

C ENTER HERE WITH AN ACTIVITY REPORTING PROGRESS. 

C PROGRESS OATA ON COSTS GOES IN 1ST WORD OE NAME 8 , EINISH INEO GOES IN 

C SECOND WORO, REPORTED START DATA GOES IN WORO 3 OF NAME8. 

20 I A= A 



I 8 = B 

C CALL PRLOGX TO SEARCH THE LIST FOR THE ACTIVITY WE SEEK. 

CALL PRLOGX ( IA,IR,K3, I NGR 10, NOAC T ) 

C IF K3 IS POSITIVE, K3 REPRESENTS ITS POSITION IN THE LIST. IF IT 

C IS NEGATIVE, THE ACTIVITY IS NOT IN A PART OF THE NETWORK. IN THE 

C SECOND CASE, PRINT AN ERROR MESSAGE. 

IF(K3)2l,2l ,22 

21 IF ( MODE ) 27 ,27, 24 

27 WRITF(6,28) IA 

28 FORMAT ( / / , IX, 'PROGRESS OATA ON ACTIVITY *,I4,* IS NOT ACCEPTEO SIN 
2CE THIS ACTIVITY IS NOT A PART OF THE NETWORK.*,/) 

RETURN 

24 WRITE<6,29) IA,I3 

29 FORMAT ( //, IX, ’ACTIVITY *,14,* - *,I4,* IS NOT A PART OF THE NET WOR 
2K . PROGRESS OATA FOR THIS ACTIVITY IS NOT ACCEPTEO.*,/) 

RETURN 

22 I F ( I0PR0GIK3) )200,200,20l 

C IDPPOG POSITIVE IMPLIES SOME OATA HAS ALREADY BEEN REPORTEO. 

201 OISK GFT(2, 10PR0GIK3) ,1 INE( l),l,12) 

GO TO 204 
200 00 23 J=l,9 

23 L I NE ( J ) = 0 
294 RETURN 

C STORF R F PORT ED FINISH OATE. 

C IF REPORT OATE IS AFTER A REPORTEO FINISH DATE (INDICATING THAT AN ACT. 

C IS, IN FACT, FINISHED) ,STOPE THE OATE AS REPORTED. TO INDICATE AN EST. 

C FINISH OATE (I.E., FINISH OATF IS LATER THAN THE REPORT DATE) STORE THE 

C NEGATIVE OF THE DATE REPORTED. 

30 I F ( IPROG-O) 35,31 ,31 

31 L I N E ( 2 ) = 0 
GO TO 36 

35 L I NF ( 2 ) =-D 

36 CONTI NUF 
RFTtJRN 



c 

4 0 
C 

r 

69 



STORE REPORTED START DATE. 
LINE ( 3) =9 
R E TURN 



STORE REPORTED COST INFORMATION. 

L INF(l) rC 

RETURN 



60 I E ( I 2- ) )37, 83*37 

3 3 IF(L )NE( 3) )8l f 37,31 

31 I F { IA3S(LINE<2 ) ) ) 30, 37,30 



10 ? 

103 

104 

105 

106 

107 

10 8 

109 

I 10 

l l l 

112 

113 

114 

1 1 5 

116 

117 

HR 

119 

120 

l?l 

122 
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RO IF(LINE(3)-IABS(LINE(2>))37,37,33 
C SEE IF FINISH IS SMALLER THAN THE START. 

3 3 IF(M0DE)38l t 38l,3S2 
331 WPITF(6, 393) I A , L I NE (3) , L I NE (2) 

333 FORMAT!/, IX, ’ACTIVITY * , 1 5 , * REPORTS START ON DAY ’,15,’ FINISH ON 
1 DAY * , 15) 

GO TO 390 

33? WRITF (6*334) I A , l 8 , L I NE ( 2 ) , L I NE ( 3 ) 

384 F 0 R M A T ( /, IX, ’ACTIVITY ’,14,’ - ’,14,’ REPORTS START ON DAY ’,15,’ 
IFINISH ON DAY ’ , IS) 

390 W9ITF(6,391) 

391 FORMAT! IX, ’***EP.ROR -- FINISH CANNOT OCCUR BEFORE START. ALL STAR 
IT AND FINISH DATA FOR THIS ACTIVITY HAVE BEEN ZEROED. ’ ) 

L I NF ( 2 ) =0 
L I NE ( 3 ) =0 

37 DISK PUT (?,NAME8» I0PRDG(K3) ,LINE( 1 ), 1,36) 

RETURN 

70 DISK OP EN ( 2 , N A M E R , I ) 

DISK PUT (2, HAMER, I I , IDPROGt 1 ) , 1,LEN> 

DISK CL0SF(2,NAME8) 

DESTROY I D P 3 0 G 

RETURN 

END 
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ICETRAN LISTING 



S. I 
S. 2 
S. 3 
S. 4 
S. 5 
S. 6 
S. 7 
S. ft 
S. 9 
S. ID 
S. 1 1 
S. 12 

S. 13 
$. 14 

S. 15 
S. 16 
S. 17 
$. 18 
S. 19 
S. 20 
S. 21 
S. 22 
S. 23 
S. 24 
S. 25 
S. 26 
S. 27 
S. 2« 
S. 29 
S. 30 
S. 31 
S. 32 
S. 33 
S. 34 
S. 35 
S. 36 
S. 37 
S. 3ft 
S. 39 
S. 4 0 
S. 4 I 
S. 42 
S. 43 
S. 44 
S. 45 
S. 46 
S. 47 
S. 4ft 



SUBROUTINE PRPORK 

C PRWORK TAKES A OATE !MO,OY,YR IN A,B,C) ANO PUTS WORK OAY INTO D 

C THIS EDITION OF PRPORK MOOIFIEO 27 JULY 67 BY J.T. ft ACOERMOT T TO 00 ERROR 

C RETURNS IF ANY PART OF THE GIVEN OATE IS INVALID. THIS DONE SO AS TO 

C INSURE PROPER EXECUTION OF SUBSEQUENT COMMANDS. 

COMMON MOOE, NUMACT , NO AC T , NUM AR , I CODE , I F L OW , D A T EM , OA T F 0 , D AT E Y , DNUM 
COMMON NOHOL, JORDUR, A , B , C, Ot E , F , G. H, K 1 , K 2 , K3 • K4 , K5 * <6 * L I NE ( 2 0 ) 

COMMON NAME, NAM El , NAME2 ♦ NAME 3 ♦ NAME4 , NAME 5 , A3 ( 12) , ft AME , OB XXX { 50 ) 

COMMON TABLE, HOLD, I ALPHA (16) .MONTH! 12) , RL X X X ( 2 D ) , I NTX X X ( 2D ) 

COMMON NARROW! P ) , INCODE IP ) , INGRIOIP ) , K T I ME { P ) , I DT I ME { P ) * IDNETI P > 

COMMON SORT! P) ,JSORT!P) ,KHOLD!P) , MOUM(P) , MARROW! P) , ICAL!P) , I H3L I P ) 

OYNAMIC ARRAY N ARROW, I NCODE , I NGR I D , K f I ME , I OT I ME , I DNE T , SORT ! 0 ) , 
l JSORT , KHOL 0, MOUM, MARROW, I CAL, I HOL 
OOUSLF PRECISION NAME , NAME l , NAME 2 * NA ME3 , NAME4 , NAME5 , BL ANK , NAME 
DOUBLE PRECISION I ALPHA, FMONTH, DBXXX 
OOUBLE PRECISION MON 

C SET *D* * 0 IN CASE NO VALIO WORK OAY CAN BE F3UN0 I I F GIVEN 0 ATF BAD) 

0 = 0 

C HOLO EXISTING JOBDUR ASIOE IN CASE PSEUOO JDBOUR IS USED TO GET CALENDAR 

M0B0UR=J080UR 

C PUT A VALUE INTO J080UR IN CASE A CALENOAR MUST BF GENERATED 

J OB OUR = 300 

C SEE IF A STARTING OATE HAS BEEN ASSIGNED 

200 IF!0ATEM)S10,510,515 
C NO, PRINT ERROR MESSAGE 

5 1 D WRITE ! 6 , 90D ) 

GO TO 100 
516 INDATM^A 
I NOAT 0= R 
I NOA T Y = C 

C SFE IF YEAR WAS GIVEN, AS IT MUST BE 

IF! INDATY) 300,30D,505 
30D WRITF!6,901) 

GO TO 100 

C SFE IF GIVEN OATE OCCURS BEFORE PROJECT START 

505 IF! I OOOO.*DATY*lDO.*O\TEft*DATE0-lOO9O.*C“lOO.*A-8)5O6»5O6»5D4 
504 J = DA T E D 

K = D AT E M 
L =0 A T F Y ♦ 1 900 
MON= FMONTH! K ) 

BLANK=FMONTH! INDATM) 

WRITE! 6, 902) I NOA TO , BL ANK , INOATY, J,MON,L 
GO TO 10D 

C DESTROY ANY ICAL LEFT AROUND 

506 DESTROY ICAL 

G YFS, GENERATE A CALENDAR 

607 CALL DATE 

C MATCH REPORT OAY TO CALENDAR TO FIND CORRESPONDING JOB OAY 

C MATCH THE YE*« 



75 



s. 


49 




00 520 1=1 » JOB DUR 


s. 


50 




I F ( 1CAL (3, t> -I NOATY) 5 20,52 5,505 


s. 


51 


525 


I NDA Y = I 


s. 


52 




GO TO 530 


s. 


55 


520 


CONTINUE 


s. 


54 




J0B0UR=J0BDUR+2O0 


s. 


55 




GO TO 507 


s. 


56 


C 


MATCH THE MONTH 


s. 


57 


530 


DO 540 l=INDAY, JOBDUR 


s. 


58 




IF! I CALI 1, I >- INDATM >54 0,535, 5 37 


s. 


59 


C 


SEE IF THIS IS THE SAME YEAR STILL 


s. 


60 


535 


I F C INDATY-tCAL ( 3,1)) 538,536,536 


s. 


61 


538 


1N0AY = 1-1 


s. 


6? 




GO TO 545 


s. 


63 


536 


1 NOA Y= 1 


5 • 


64 




GO TO 545 


s. 


65 


C 


GIVEN MONTH HAS NO PROJECT WORK DAYS. PRINT MESSAGE AND RETURN 


s. 


66 


537 


8L ANK = F MON TH ( INDATM) 


s. 


67 




INDATY=INDATY*1900 


s. 


68 




WRITE(6*903) 1 NDATD ♦ BL ANK* l NDAT Y , NAME 


s. 


69 




GO TO 100 


s. 


70 


540 


CONTINUE 


s. 


71 


C 


IF CONTROL COMES HERE* MONTH NUMBER NOT FOUND IN ICAL IN YEAR 


s. 


72 




J0BDUR=J08DUR+200 


s. 


73 




GO TO 507 


s. 


74 


r. 


MATCH THE DAY 


s. 


75 


545 


DO 555 l = l NO AY, J08DUR 


s. 


76 




IF ( ICAL ( 2* t J-INDATD >552,551, 550 


s. 


77 


C 


GIVEN OATE NOT A WORKING 0 AY , BACK UP ONE 


s. 


78 


550 


I ND A Y = I - 1 


s. 


79 




K5= 1 


s. 


R0 


r. 


CHECK TO SEE IF DAY OF REPORT OCCURS BEFORE PROJECT 


s. 


8 I 


556 


I F { INDAY)504,504,500 


s. 


82 


C 


THE MATCH FOUNO, NOW RETURN 


s. 


83 


551 


l NDA Y= 1 


s. 


84 




K 5 = 0 


s. 


R 6 




GO TO 500 


s. 


86 


552 


IF( ICAl { l , 1 )- INDATM >555,555,550 


s. 


87 


555 


CONT INIJE 


s. 


RR 


C 


DAY NOT FOUNO IN CALENDAR, GENERATE A LONGER ONE 


s. 


R9 




JOBDUR= J03DUR+30 


s. 


90 




GO TO 507 


s. 


91 


C 


INDAY IS DAY TO ASSIGN 


s. 


92 


500 


0= l NDA Y 


s. 


93 


c 


PUT JOBDUR BACK AS WAS AND RETURN 


s. 


94 




J0BDUR=M0B0UR 


5 , 


95 




return 


s. 


96 


>00 


JORDUR = MOB DUR 


s. 


97 




FRROR RETURN 


s. 


98 


900 


FORMAT!//' ♦♦*♦***/, * A PROJECT START OATE MUST BE ASSIGNED BEFORE 
1 OTHFR START AND FINISH DATES MAY 3E ASSIGNED*/,* EtTHER WORK WITH 






2ntJT DATES, OR FIRST ASSIGN A PROJECT START DATE.*/** ******•//) 


s. 


99 


901 


FORMAT!//* *♦♦****/* A START OR FINISH OCCURRING BEFORE PROJECT ST 
1 A R T HAS BEEN ASS I GNEO. * /, * THIS IS NOT ALLOWED.*//) 


s. 


100 


902 


FORMAT!//* THF GIVEN 1 AT F ' , I 3 , 1 X , A 3 , l 5 , * 3CCURS BEFORE PRQJFCT STA 



S. 101 



1RT» i 13 , 1 X, A3 , I 5, 1 , A NO SO IT MAY NOT BE USED.*/,* 
?'/> 

903 FORMAT!//' **♦**♦•/,» THE MONTH OF THE GIVEN DATE • 
INCLUDES NO WORKING DAYS FOR PROJECT •* 1 , A8 ,••».'/ , 
2N. •/) 

ENO 



NO ACTION TAKEN, 

.nilX.AB.lS, 1 1 

• NO ACTION TAKEN 



S. 102 
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ICETRAN LISTING 



S. I 
S. 2 
S. 3 
S. 4 
S. 5 
S. 6 
S, 7 
S. B 
S. 9 
S. 10 
S. 11 

S. 12 
S. 13 
S. 14 
S. 15 
S. 16 
S. 17 
S. IB 
S. 19 
S. 20 
S. 21 
S. 22 
S. 23 
S. 24 
S. 25 
S. 26 
S. 27 
S. 28 
S. 29 
S. 30 
S. 31 
S. 32 
S. 33 
S, 34 
S. 35 
S. 36 
S. 37 
S. 38 
S. 39 
S. 40 
S. 41 
S. 42 
S. 43 
S. 44 
S. 45 
S. 46 
S. 47 
S. 48 



C 

c 

c 



c 



c 

c 



c 



c 

c 

c 

c 



c 

c 

c 

c 

c 

c 

c 



SUBROUTINE PROGFL I JBOR ) 

FLOW IS THE CALLING SUBROUTINE FOR SCHEDULING COMPUTATIONS 
SUBROUTINE FLOW REVISED BY T. MACDE RMOTT 14 JUNE 1967. CHANGE IS THAT 
NOW PROGRAM IS CALLEO PROGFL -- AND IT CALLS PROGSF (STMT 52) VICE PRSFEX. 
COMMON MODE, NUM ACT , NOAC T , NUMAR , I CODE, IFLOW, DATEM, DA TE 0 , DA TE Y , DNUM 
COMMON NOHOL , JOBDUR, A,B,C, D, E,F, G,H,Kl ,K2,K3,K4,K5,K6,LINE( 20) 

COMMON NAME,NAMEl,NAME2,NAME3,NAME4,NAME5, A3 ( l 2 ) , M AME , DB XX X! 50 ) 

COMMON TABLE, HOLD, I ALPHA! 16) , MONTH ( 1 2 ) , R LXXX ( 20 ) , I NTX XX ( 20 ) 

COMMON NARROW! P ) , INCODE ( P ) , I NGR I 0( P ) , XT l ME ( P ) , I OT I ME ( P ) , I ONE T ( P ) 

COMMON SORT! P) , J S3R T ( P ) , KHOL D ( P ) , MOUM ( P) , MARROW! P ) , I CAL! P) , I HOL ( P) 

OYNAMIC ARRAY N AR R 0 W, I NCOOE , I NGR I D , K T I ME , I OT I ME , I ONE T , SOR T ( 0 ) , 

IJSORT ,KHOLD,MDUM, MARROW, ICAL, I HOL 
DOUBLE PRECISION N AM E , N A ME l , N AME 2 , N AME3 , N AME4 , N AME5 , BL ANK ♦ M AME 
DOUBLE PRECISION I ALPHA , FMONTH, OBXXX 

DESTROY CALENOAR IN ICAL WHEN CALCULATING NEW SCHEDULE 
DESTROY ICAL 



2 B 



30 



31 



32 



K l =9 

CALL RETRVE 

RECOVER NARROW FROM SECONOARY STORAGE 

OESTROY NARROW FIRST TO BE SURE THE AS INPUT IS NOT USED 
DESTROY NARROW 
K l = 5 

CALL 'RETRVE 

PUT KT AT TOP OF LIST BEING CONSIDERED, KB AT BOTTOM. THESE MAY CHANGE 
I =-l 
KT» I ♦ 2 
KB = NUMAR 

USE APPROPRIATE DURATIONS WITH GIVEN LAG VALUE TO SET UP RELATIONSHIP 
DO 39 I =KT , K B 
IS THERF A LAG OF ANY KIND 
I F ( NARROW (3,1) )30, 39,30 

YES, GFT THE OPFRATOR, PLUS l, TO BRANCH ON 
GET THE INPUT LAG VALUE 
KN=NARROW ( 3 , I ) 

K = IABS(KN-(KN/10)M0) + l 
KN=KN/10 

NOW BRANCH ON OPERATOR 
GO TO! 34,31, 32 ,33) *K 

START-START, SUBRR ACT 0URATI3N OF INDEPENDENT ACTIVITY, AOO LAG VALUE 
NARROW! 3, I ) =KN-K T I ME ( l .NARROW ( l, I ) ) 

GFT THE PROPER LAG FOR THE NEW ARROW 
KN=-KN-KT!ME(i, NARROW! 2, I)) 

NOW GO AND ADD NFW ARROW 
GO TO 40 

START-FINISH, SUBTRACT BOTH DURATIONS AND LAG FACTOR 
N AR P 3W ( 3 , I ) = KN-KTIME! I , NARROW ( I , I ) ) - K T I MF ( l , N ARR 0 W ( ? , I ) ) 

THE NEW ARROW HAS THE SAME KN, BUT WITH THE OTHER ALGEBTAIC RIGN 



KN=-KN 

NOW GO AND AOD ANOTHER ARROW 



49 

50 

51 

5 2 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 
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GO TO 40 

C FINISH-FINISH, SUBTRACT OURATION OF DEPENDENT ACTIVITY , AOO LAG VALUE 

33 NARROW! 3, I ) =KN-KT I ME ( 1 , NARROW (2, I ) ) 

C GET THE PROPER LAG FOR THE NEW ARROW 

KN=-KN-KT I ME ( 1 .NARROW! 1,1)) 

C NOW GO ANO AOO ANOTHER ARROW FOR THIS F-F RELATIONSHIP 

GO TO 40 

34 NARROW! 3, I )=KN 

39 CONTINUE 
GO TO 52 

C FOR S-S.S-F, ANO F-F RELATIONSHIPS ANOTHER ARROW IS AOOEO TO TOP OF LIST 

C FIRST INCREMENT NUMAR, THEN REOEFINE NARROW ONE LONGER 

40 NUMAR^NUMAR* 1 

OEFINE NARROW, 3, NUMAR.HALF, LOW 
C NOW SHIFT ALL OF NARROW OOWN BY ONE 

00 310 KK=2, NUMAR 
K J=NUM AR-KK+ 1 
00 310 KM= 1 ,3 

310 NARROWIKM.KJM )=NARROW(KM,KJ ) 

C PUT NEW ! P SEUOO ) ARROW ON TOP OF LIST 

NARROW! 1,1 ) = NARROW ! 2 , IM ) 

NARROW! 2, 1 )=NARROW! 1 , 1*1 ) 

NARROW! 3, 1 )=KN 

C IF THIS WAS LAST ARROW, LEAVE LOOP ANO GO ON TO 40. IF THERE ARE MORE 

c arrows, then go back ano start loop AGAIN WITH NEXT arrow, NOW 2 BELOW. 

IF! I+1-NUMAR)28,52,52 

C FLOW NETWORK TO FINO ALL EARLY STARTS ANO FINISHES 

C CALL PROGFF TO PERFORM FORWARD FLOW — THIS CALL PROGBF WHICH OOES THE 

C backwaro FLOWING. 

52 CALL PROGOL 

OESTROY NARROW 

C BRING STATUS WORDS UP TO OATE, HOLO JOBOUR SO IT WON’T BE RUN OVER 

JBOR = JOBOIJR 

C GET BACK STATUS WOROS IN CASE NUMAR WAS CHANGED 

K 1 = 1 0 

CALL RFTRVE 

RETURN 

ENO 
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ICETR AN LISTING 



S. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 



9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 



SUBROUTINE PROGIX 

COMMON MODE, NUM ACT , NOAC T , NUMAR , I CODE, I FL DW , DA TE M, DA TE 0 , D ATE Y , DNUM 
COMMON N3H0L , JDBDUR, A,B,C,D,E,F,G,H,K1,K2, K3,K4, K5, 66, LINE! 20) 
COMMDN NAME, NAME I , NAME 2 , NA ME3 , NAME4 , NAME 5 , AB( 12 ) , M AME , DBXXX( 50 ) 
COMMON TABLE, HOLD, I ALPHA! 16), MONTH! 12) ,RLXXX!20),I NTXXX! 20) 

COMMON NARROW! P ) , ! NCDDE ( P) , I NGR ! D( P ) ,<TI ME ! P ) , I DTI ME ( P ) , I DNET! P ) 
COMMON SORT! P ) , JSDRT ( P ) , KHOLO! P) ,MOUM! P) , M ARR DW ( P ) , I CAL ! P ) , IHOL ( P) 
DYNAMIC ARRAY NARR 3W, I NCDDE , I NGR I D, KT I ME , I OT I ME , I ONE T , SOR T ( 0 ) * 
1JS0RT,KH0LD,MDUM,MARRDW, I CAL, IHDL 
DYNAMIC ARRAY K PROG, IDPRDG, JCDST, IACTRC 

DOUBLE PRECISION N A ME , N AME 1 , NAME 2 , N A ME 3 , N AME4 , N AME5 , B L ANK , MAME 

DOUBLE PRECISION I AL PHA , FMONTH , 03XXX 

DOUBLE PRECISION NAME7 

INTEGER F 

REAL RLXXX 

EQUIVALENCE ( DBX XX { 8 ) , N AME7 ) 

EQUIVALENCE (INTXXX(6),NSEL) 

EQUIVALENCE < ! NTXXX l 1 7 ) , I T ( MRC ) 

EQUIVALENCE ( NA ME 8 , DBX X X { 9 ) ) 

EQUIVALENCE ( ! N T XX X< 1 4 ) , ! 1 ) 

EQUIVALENCE (RLXXX! 17), WP), (RLXXX! 19), Cl) 

P EQUIVALENCE ( ( DPRDG ( 1 ) , 03 X X X ( 2 3 ) ) 

P EQUIVALENCE ( KPR OG ( I ) , OR XX X ( 22 ) ) 

KKK=INTXXX(20) 

C SAVE THE WORKDAY SET IN 0 BY THE COL. 

I WKDA Y=D 
JWKOAY= IWKOAY 

DISK FILE INF0(2,NAME8,IFSTAT,IH,IL) 

IF( IFS T AT-i)3,3,4 

3 WRITF(6,9) 

9 FORMAT! /, IX, »N0 PROGRESS DATA HAS BEEN REPORTED. NO COMPUTATIONS 
l C AN RE MADE.*) 

ERROR RETURN 

4 IF! ISTAT! JUNK , J SOR T ) -I ) 69, 69, 65 

C ENTRY HERE IMPLIES JSORT MUST BE CREATED. 

65 OF F ( NE JSORT, NOACT, HALF, LOW 
DO 70 1=1, NOACT 
70 JSORT! I )=( 

N SEL =NU ACT 

C ENTRY HERF IMPLIES JSORT EXISTS. 

C INITIALIZE THE KTIME ARRAY. 

69 OFSTRDY KTIME 

OFF INF KT( ME,7,P0!NTER,L0W 
DO 5 1=1,7 

DEFINE KT(MF(I), NOACT, HALF, LOW 

5 RELEASE KTIME! I) 

DO 6 ( = 1 , NSEL 
J=JSORT { I) 

I G= I ONE T ( J ) 



80 



s. 


48 






OISK GE T( 2 » I G, L I NE ( l ) » 9 , 12) 








s. 


49 




6 


KTIMEtl, J)*L!NE( 1) 








s. 


50 






RELEASE IONET 








s. 


51 


C 




FIRST CALL TO PROGFL RETURNS PLANNED PHASE 


DURATION. 


s. 


5? 






IF{N0ACT-NSEL>401 ,402, 401 








s. 


53 




401 


CALL PROGFL ( J R OR ) 








s. 


54 






GO TO 403 








s. 


55 




402 


J80R = JOBDUR 








s. 


56 




403 


ORGOUR= JROR- 1 








s. 


57 


c 




CALL TO PROGET RETRIEVES PROGRESS OATA STORED 


ON 


NAME- 8. 


s. 


58 






CALL PROGET (1*1*3) 








s. 


59 






IF ( NOACT-NSEL) 34 t 35 , 34 








s. 


60 




35 


DO 30 I = 1 , NSE L 








s. 


61 






J J = J SOR T ( I ) 








s. 


6? 






IF { I DPROG ( JJ ) ) 30,30, 31 








s. 


63 




31 


KPR=IA8S(KPR0G( 2, JJ).> 








s. 


64 






IF (KPR ) 501 ,501 , 502 








s. 


65 


c 




NO FINISH REPORTEO. 








s. 


66 




50 1 


I F ( KPROGI 3, JJ) >503,503*504 








$. 


67 


c 




NO start either. 








s. 


68 




503 


KSWT CH= l 








s. 


69 






GO TO 550 








s. 


70 


c 




NO FINISH BUT A START 








s. 


71 




504 


KSWTCH=? 








s. 


72 






GO TO 550 








s. 


73 


c 




A FINISH REPORTEO — HOW A80UT A START 








s. 


74 




502 


IF (KPR0G1 3, JJ) 1505,505,506 








s. 


75 


c 




FINISH BUT NO START. 








s. 


76 




505 


KSWTCH=3 








s. 


77 






GO TO 550 








s. 


78 


c 




START AND A FINSIH. 








s. 


79 




506 


K S WTCH = 4 








s. 


80 




550 


GO TO { 30,300, 33, 36) ,<SWTCH 








s. 


81 


c 




START ONLY 








s * 


82 




300 


KTIMEt 2, JJ )=KPR0G(3, JJ ) 








s . 


83 






KTIME{3,JJ)=KPROG(3,JJ) 








s. 


84 






K T I ME (4,JJ )=KPROG( 3, JJ ) ♦ KT I M E ( 1 , J J ) -* l 








s. 


85 






KTIME ( 5, J J )=KPROG( 3, JJ )*KTIME ( l , JJ )-l 








s. 


86 






GO TO 30 








s. 


87 




33 


KTIME(2,JJ)=KPR-KTIME(1,JJ)+1 








s. 


88 






KTIME13, JJ)=KTIME(2,JJ) 








s. 


89 






KTIME (4, JJ )=KPR 








s. 


90 






KTIMEI 5, JJ )=KPR 








s. 


91 






GO TO 30 








s. 


9 2 


c 




IF ROTH S AND F ARE GIVEN, SET XTIME ES»S, 


LS' 


' S, 


EF’S, LF»S. 


s. 


93 




36 


KTIME(2,JJ)=KPR0G(3,JJ) 








s. 


94 






KTIMEl 3, J J)=KPR0G<3, JJ ) 








s. 


95 






KTIME(4,JJ)=KPR 








s. 


96 






KTIMEI 5, JJ )=KPR 








s. 


97 






KTIMFl l* JJ)=KPR-KPROG( 3, JJ)*1 








S. 


98 




3 0 


CONTINUE 








s. 


99 






GO TO 370 








s. 


100 




34 


00 37 I - l , N S F L 








s. 


101 






J=JS0RT( I ) 








s. 


10? 






KPR^I ASSC<P70G(2, J ) ) 









101 

104 

105 

106 

107 

105 

109 

l 10 

111 

112 

111 

114 

115 

116 

117 

115 

119 

120 

121 

122 

121 

124 

125 

126 

127 

12B 

129 

110 

111 

112 

I 11 

114 

115 

I 16 

I 17 

115 

119 

1 40 

141 

142 

141 

144 

145 

146 

147 

145 

149 

150 

151 

152 

1 5 3 

154 

155 

166 
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IF(KPR)17, 17, IB 
15 IF (KPROGd, J) ) 17, 17,19 
19 KTIME! l ,J)=KPR-KTIME(1,J)U 
17 CONTINUE 

C CHECK TO SEE WHICH INDEX IS REQUESTED. K 3 = 1 IMPLIES COST INOEX ONLY, K3 

C 2 IMPLIES WORK PROGRESS INOEX ONLY, Kl=l IMPLIES STATUS INDEX. 

170 DO 40 J=l,NSEL 
I = JSORT ( J ) 

C SEE IF A FINISH HAS BEEN REPORTED. 

I F ( KPROG ( 2 , I ) ) 4 1 , 42,41 
42 KT I ME 1 4 , I ) =0 
KTIME (5, I )*0 

41 IF(KPROGll, I ) )40,41,40 
41 KTIME ( 3, I ) =0 
K T I ME ( 2 , I )=0 
40 CONTINUE 

C SECONO CALL TO PROGFL RETURNS LATEST REVISED ESTIMATE OF PHASE/PROJECT 

CALL PROGFL(JBDR) 

C CHECK THE VALUE OF ICOST TO SEE IF ESTIMATED COST DATA EXISTS IN NAME7. 

K 1 = l 0 

CALL RETRVE 
ICOST - I NT X X X ! 9) 

IF( I NT XXX (20 1-2)2 00,72,200 
200 I F ( I COST >71,71,72 

C IF ICOST IS ZERO, PRINT ERROR MESSAGE AND RETURN -- OTHERWISE, GO AHEAD. 

71 WRITF(6,7I0) NAME 

710 FORMAT! //, IX, 'COST OATA HAS NOT BEEN FILED FOR PROJECT * , AB , • • CO 
1ST INDEX CANNOT BE COM PUTE 0 . * , / ) 

DESTROY JSORT 
OESTROY K PROG 
ERROR RETURN 

72 NAME 7 = NA ME 

CALL AODNIIM ( N AME 7 , 7 ) 

OISK FILE INFO( 2»NAME7 »JUNK, IG, I L) 

DISK GET ( 2 , I G , L I NE ( 1 ) , 0 , B , JUNK , NF X T ) 

C COMPUTE COST COMPONENT OF STATUS INOES. RETRIEVE EST. COST OATA FROM 

C N A ME 7 . 

IG*LINE( I ) 

LEN=L INF (2 ) 

DEFINE IACTRC,LEN, FULL, LOW 

OISK GET( 2, IG, I ACTRC ( 1 ) , 0 , 0 , JUNK , NE X T ) 

DEFINF JC3ST, LEN, FULL, LOW 

00 71 1*1, LFN 
I G= I ACTRC l I ) 

OISK GET(2,IG,LINE(I),0,4,JUNK,NEXT) 

71 JCOST ( I )=L INF! 1 ) /100 
OESTROY I A C T Q C 

1 ACTC0 = 0 
IESTC0=0 

C COMPUTE FSTI MATED COST TO OATE. 

C ALWAYS US JCOST WHEN COMPUTING ESTIMATED COSTS. DON’T EVER USE KPROG 

r COSTS. IF ACTIVITY is FINISHED, TAKE WHOLE COST -- IF IN PROGRESS, TAKE 

C LINEAR PORTION OF COST -- IF NOT STARTED, T A < E ZERO COST. 

IF (NO AC T-NSFL >606,60 5,606 
606 DESTROY I ONE T 



S. 157 
S. 158 
S. 159 
S. 160 
S. I 6 I 
S. 162 
S. 163 
S. 164 
S. 165 
S. 166 
S. 167 
S. 168 
S. 169 
S. 170 
S. 171 
S. 172 
S. 173 
S. 174 
S. 175 
S. 176 
S. 177 
S. 178 
$. 179 
S. 180 
S. I 8 I 
S. 182 
5. 183 
S. 184 
S. 185 
S. 186 
S. 187 
S. 188 
S. 189 
S. 190 
5. 191 
8. 19? 
S. 193 
S. 194 
S. 195 
S. 196 
S. 197 
S. 198 
8. 199 
8 . 200 
5. ?01 
5. 202 
S. 203 
S. ?04 
S. 20 5 
8. 206 
8 . 207 
8. 208 
8. 209 
8. 210 
8 . 2 I I 



DESTROY 10T1ME 
K 1 =9 

CALL RETRVE 

00 600 1=1 , NSEL 
J = JSORT I 1 ) 

1 G= 1 OT I ME ( J ) 

QtSK GETI2,IG,L1NFI2>,5,20) 

DO 601 L = 2 » 5 
601 KTIME(L,J)=LINE(L> 

600 CONTINUE 

DD 607 I = 1 , NSEL 
J = J SOR T I I ) 

KPR=1ABS(KPR0G(2,J > ) 

IE I K PR > 609 ,609,610 

610 KTIMEI4, J>=KPR 
KT1MEI5, J>=KPR 

609 IF IKPR0GI3 ,J )) 607,607,61 I 

611 KTIMEI2, J)=KPR0G(3, J) 

KTIME(3,J>=KPR0G(3,J) 

607 CONTINUE 
605 DO 74 1=1 , NSEL 
J = J SORT I I ) 

IFI IWKOAY-KTIMEI 2, J) >74,76,76 

76 IF I I WKOAY-KTIMEI 4, J) ) 75, 77,77 

77 IESTCO=1ESTCO+JCOST( J) 

GO TO 74 

75 0IFF=IWK0AY-KTIMEI2»J) 

D1V=KTIME( 1, J) 

IESTCO=IESTCO«-( (DIFF/OIV>*JCOSTIJ)> 

74 CONTINUE 

C COMPUTE ACTUAL COST TO OATE. 

C IF ACTIVITY IS IN PROGRESS, TAKE LINFAR PORTION OF COST -- IF FINISHED 

C TAKF ENT l RF COST AS REPORTEO IN N 4 ME 8 (OR NAME 7 IF NOTHING IN NAME8) - 

C IF NOT STARTED ASSIGN ZERO COST. 

DO 80 I = 1 , N8FL 
J = J SOR T ( I ) 

1 F ( I WKOAY-KTIMEI 2, J) >80,82,82 

82 IFI IWKDAY-KTIME(4,J) >81,83,83 

83 IFI KPROGt I ,J > >84,84,85 

84 IACTCO=IACICO+JCOSTI J) 

GO TO 80 

85 1ACTC0=I ACTCO+KPROGI I , J ) 

GO TO 80 

91 niFF=( WKOAY-KTIMEI 2, J> 

DI V = KTIMF I I , J ) 

IF ( K PROG I I , J > >86,86,87 

86 IACTC0=IACTC0+I(0IFF/0IV>*JC0STIJ>) 

GD TO 80 

8 7 I AC TC 0=1 ACTCO* I I D I F F / 0 1 V > * K PROG I I , J > > 

8Q CONTINUE 
I PHC 0 = 0 

DO 90 1=1, NSEL 
J = J SORT I I > 

C COMPUTF ESTIMATEO PHASE OR PROJECT COST. 

90 ie>HCn= JPHCO* JCOSTI J> 
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S. 212 
S. 213 
S. 214 
S. 215 
S. 216 
S. 217 
S. 218 
S. 219 
S. 220 
S. 221 
S. 22? 
S. 223 
S. 224 
S. 225 

S. 226 
S. 227 
S. 228 
S. 229 
S. 230 
S. 231 
S. 232 
S. 233 
S. 234 
S. 235 
S. 236 
S. 237 
S. 238 
S. 239 
S. 240 
S. 241 
S. 242 
S. 243 
S. 244 
S. 245 
S. 246 

S. 24 7 
5 . 2^3 
S. 249 
S. 250 
S. 251 

S. 752 
S. 253 
S. 254 
S. 255 
S. 255 
S. 257 
S. 258 

S. 259 
S. 260 
S. ?6I 
5. 262 



C 



C 

c 

c 



c 

c 

c 



c 



DESTROY JCDST 

CDMPUTE THE COST INOEX. 

ACOST=I ACTCO 
ECOST = 1 ESTCD 
TCDST = I PHCO 

CI=( TCDST- ( ACOST-ECDST ) ) /TCOST 

IF ND START AND/OR FINISH OATA HAS BEEN REPORTED, ZERO THE APPROPRIATE 
PLACES IN THE KTIME ARRAY. 

OESTROY KPROG 

SEE IF ITIMRC HAS BEEN OEFINEO — IF NOT, HAKE IT 15 PERCENT OF JOBOUR. 
IF ( ITIMRC ) 737,786,737 
786 ITIMRC = ( ( . 15)*J0BDUR )+ . 5 
WR I T E (6,787) ITIMRC 

737 FORMAT! /, IX, ’ASSIGNMENT OF TIME RECOVERABLE WAS NOT MAOE. IT IS T 
1 AKEN TO BE ’ , 14, » OAYS. ’ ) 

TN = T I ME NOW. 

737 TN= I WKDA Y 

PRD IS THE REVISED NETWORK DURATION. JBOR (AFTER SECDNO CALL TO PROGFLJ 
CONTAINS THE REVISED VALUE PLUS ONE. 

PR0=J80R-I 

IF (NSEL-NOACT 1962,963,962 

PTR IS THE PHASE TIME RECOVERABLE. 

962 PTR=ITIMRC*(DRGDUR/( JOBDUR-I.) ) 

CDNST=PTR*( l.-(TN/( JD8DUR-1. ) ) ) 

00 94 J = I ,NSEL 
I = JSOR T ( J ) 

IF(KTIME (2, I) -1WK0AY) 940, 940,94 
94 CONTINUE 

WRITF(6,952) IWKOAY 
RETURN 

940 OD 950 J*l , NS F L 
T = JSOR T ( J ) 

IF (KT I ME (4, I )- I WKDAY) 950, 964,964 
950 CONTINUE 

WR I TE ( 6 , 95 2 ) IWKDAY 

952 FORMAT! /, 1 X, ’WORKOAY ’,14,* DOES NOT OCCUR TURING THE EXECUTION DF 
1 THIS SUBSET OF ACTIVITIES. IT IS NOT VALID.’) 

RETURN 



96 3 CONST = ( I .-! TN/UDBDUR-1. ) ) ) ♦ITIMRC 
964 IF!C0NST)380,380,379 

330 WRITE(6,33I) CONST 

331 FORMAT! /, l X, ’DENOMINATOR OF WORK PROGRESS INDICATOR IS ’,F6.2,* NO 
I COMPUTATIONS CAN BE MADE OR ACTION TAKEN.’) 

DESTROY KTIME 
RETURN 

379 IF( CONST-! RPO-EPO) ) 180,19, 19 
130 I F ( F ) 18, 13,19 
Ifl M ORE=CONST-(RPO-EPD) +.5 
WR I TF ( 6 , 20 ) MORE 

20 FORMAT! //, IX, ’THE REMAINING WORK WILL REQUIRE *,I3,’ MORE OAYS THA 
IN CAN RF MADE UP. REVISE YOU« SCHEDULE.’) 

DESTROY KTIME 
D F T U R N 

19 WP=( ( CONST- ( RRD-ORGDUR ) ) /CONST )♦. 005 
I F ( F ) 350,350,899 



S. 263 
S. 264 
S. 265 
S. 266 
S. 267 

S. 268 
S. 269 
S. 270 
S. 271 
S. 272 

S. 273 
S. 274 
S. 275 
S. 276 
S. 277 

S. 278 
S. 279 
S. 280 

S. 281 
S. 282 
S. 283 

S. 284 
S. 285 
S. 286 



C 0EPEN0 IMG UPON WHICH INOEX WAS REQUESTED, OUTPUT THE VALUE. 

850 GO TO ( 801 ,840, 870) ,KKK 

801 CI=CI*.005 

WR I T E ( 6 , 802 ) CI,JWKOAY 

802 FORMAT ( 30X ,* ♦*** THE VALUE OF THE COST COMPONENT IS *F 5.2,* FOR OA 

1Y • , I 4 , * **♦*• ) 

DESTROY KTIME 
RETURN 

840 WP=WP+ . 005 
WRITEt6,84l) WP.lWKDAY 

841 FORMAT ( 25X , * **** THE VALUE OF THE WORK PROGRESS COMPONENT IS * ,F5. 
12, • FOR 0 A Y f , 14, • ***** ) 

OFSTROY KTIME 
RETURN 

370 SI=WP*CI *.005 

WRI TE (6,101 ) SI , JWKOAY 

101 F0RMAT(/,31X, ***** THE VALUE OF THE STATUS INOEX IS , ,F5.2, , FOR 0 
I AY f ,l4, f ♦***•) 

IF (ABS( Cl- I. >-.1)205,205,302 

302 WRI TE(6,303) Cl 

303 FORMAT! /,10X , * **** NOTE — VALUE OF COST COMPONENT IS *,F6.3,* *** 
l * • ) 

205 IF ( ABS! WP-l . )-. 1)899, 899, 202 

202 WRI TE(6,203) WP 

203 FORMAT! /, IOX , * **** NOTE -- VALUE OF WORK PROGRESS COMPONENT IS *,F 
16.3, • 

899 OESTROY KTIME 
RETURN 
F NO 
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ICETRAN LISTING 



s. 


1 






SUBROUTINE PRDGMD 


s. 


2 






CDMMDN MDDE,NUMACT,NDACT,NUMAR, I CODE, IFLDW , DATE M, DATED, DATE Y, DNUM 


s. 


3 






CDMMDN NDHDL, JD8DUR, A, B,C,D,E,F,G*H»K1»K2,K3,K4,K5»K6»LINE(20) 


s. 


4 






CDMMDN NAME, NAME 1 , NAME 2 , NAME 3 , NAME4 , NAME 5, A3(12),MAME,DBXXX(5D) 


s. 


5 






CDMMDN TABLE, HOLD, I ALPHA II 61 , MDNTHI12) ,RLXXX!23),INTXXXI20) 


s. 


6 






CDMMDN NARRDWl P 1 , I NCDDE ( P ) , INGRID! P) , KT I ME I P 1 , IDT I ME I P > , IDNETI P) 


s. 


7 






CDMMDN SDRTIP) , JSORT I P ) , KHDLDI P 1 , MOUM I P ) , M M RDrf I P 1 , I C AL I P ) , I HOL I P ) 


s. 


8 






DYNAMIC ARRAY N ARROW , I NCDD E , I NGR I D , K T I ME , I DT I ME • I DNE T , SDRT I D ) » 
I JSDRT,KHDLD, MDUM.MARRDW, I CAL, I HDL 


s. 


9 






DDU8LE PRECISION N AME , NAME 1 , N AME2 , N AME 3, NAME 4 , N AME5 , B L ANK , M AME 


s. 


10 






DDUBLE PRECISION I ALPH A , FMDNTH, DBXXX 


s. 


1 I 






INTEGER F 


s. 


12 






REAL RLXXX 


s. 


13 






EQUIVALENCE IRLX XX ! 1 7 ) , HP ) , ( RLX XX ( 19 ) , C II 


s. 


14 


P 




EQUIVALENCE I DBXXX ( 12), ST AT RY (11) 


s. 


I 5 






EQUIVALENCE (I PR OG . I NT XXX ( 1 0 )) 


s. 


16 






DYNAMIC ARRAY STATRY 


s. 


17 






KIND=INTXXXI2D) 


s. 


18 






DESTRDY STATRY 


s. 


19 






DEFINE STATRY, ID, FULL, LOW, STEP=5 


s. 


20 






RELEASE STATRY 


s. 


21 


C 




TAKE THE LARGER DF THE TWD DATES AS THE TERMINAL DATE, 


s. 


22 






I F I D-E ) 3D , 40 , 50 


s. 


23 




4D 


WRITE 16,41 ) 


$. 


24 




'+1 


FDRMATI/, IX, ' IDIOT -- BOTH DATES ARE THE SAME.*) 


s. 


25 






ERROR RETURN 


s. 


26 




5 D 


I L A S =D 


s. 


27 






I ST A = E 


s. 


28 






CD TO 21 


s. 


29 




3D 


I L AS=E 


s. 


3D 






I S TA = D 


s. 


31 


C 




CHECK TO SEE THAT TERMINAL DATE DOESN’T EXCEED J08DUR • 


s. 


32 




21 


IF! ILAS-JDBDUR)1,2,2 


s. 


33 




2 


WRITE! 6,3) I L A S 


s. 


34 




3 


FDRMATI/, IX, ’TERMINAL DATE FDR INDEX REQUEST, DAY *,I5,*, IS BEYON 
ID THE END OF THE PROJECT. REVISE REQUEST DATA.’) 


s. 


35 






ERRDP RFTURN 


s. 


36 




I 


ji=ista 


s. 


37 






I 3 = 1 LAS 


s. 


38 






14 = 0 


s. 


39 






15 = 0 


s. 


40 






I F I ILAS-IPR0G162 ,62,61 


s. 


41 




61 


1 2= I PROG 


s. 


4? 






GD TO 721 


s. 


43 




62 


12=13 


s. 


44 




721 


IF! ( ILAS-I STA)-1D0)4,4,5 


s. 


45 




4 


I NC = 5 


s. 


46 






WRITEI6.7) INC 


s. 


47 




7 


FORMAT! /, 1 X, ' I NDEX DATA WILL BE PRESENTED IN *,I2,* DAY INCREMENTS 



48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

7ft 

79 

80 

ftl 

82 

83 

84 

85 

86 



86 



i • • ) 
jj=i 

GO TO 8 
5 I NC= 10 

WR I TE ( 6 , 7 ) INC 
J J = l 

8 IF ( ILAS-ISTA)2D, 10* ID 
10 0= I ST A 

CALL PROG I X 

C STORE THE STATUS INDEX AND ITS COMPONENTS IN THE ARRAY STATRY. 

IF(KIN0-2) RO.85.90 
RO STATRY! JJ )=C I 
GO TO 95 

85 STATRY (JJ)=WP 
GO TO 95 

90 STATRY! JJ)*WP*CI 
95 ISTA=ISTA*INC 
JJ=JJ*I 
GD TO 8 
20 CONTINUE 

IF!F)70, 70,71 

71 DEFINE NARROW, JJ, FULL .LOW 
L INE ( 6) = JJ-1 
JTM=LINE(6) 

C VALUES BY 10000. TO ELIMINATE DECIMAL FARACTIONS. 

C PUT VALUES FROM STATRY INTO NARROW PRIOR TO CALLING PRGRAF -- MULTIPLY ALL 

DO 900 I = I , J TM 

900 NARROW! I ) = ST ATR YII)* 10000. 

DESTROY STATRY 
WRITEI6, 1003) NAME 

1003 FORMAT! ///,46X, • ♦ *♦* INDEX PLOT FOR PROJECT «,A8,* ****•,//) 

L I NE ! I ) - J I 
L INE ! 2) =12 
L I ME ( 3 ) = I 3 
L INE! 4)=I4 
LINE!5)=I5 

AOO TO STACK! I , • PRGR AF * ) 

TRANSFER TO STACK 
70 RETURN 
ENO 



87 



ICETRAN LISTING 



S. 1 
S. 2 C 

S. 3 C 

S. A 
S. 5 
S. 6 
S. 7 
$• 8 
S. 9 
S. 10 

S. I I 
$• 12 
S. 13 
S. 14 
S* 15 



SUBROUTINE PRSAVE 

THIS SUBROUTINE SAVES THE VALUE SET IN <5 AFTER A REQUEST FOR A STATUS 
INOEX HAS BEEN MAOE. 

COMMON MODE, NUH ACT, NOACT,NUMAR, I COOE, I FL OW , 0 AT E M , 0 ATE 0 , 0 AT E Y , ONUM 
COMMON NOHOL, JOB OUR, A, B,C,0,E,F, G,H, KI ,X2,K3,K4,K5,K6,LINE!20) 

COMMON NAME, NAME I , NAME2 , NAME3 , NAME4 , NAME 5, A3< 12) ,MAME,OBXXX{ 50) 

COMMON TABLE, HOLD, I ALPHA! I 6), MONTH! 12) , RLXXX! 2 0 ) , I NTXXX! 20 ) 

COMMON NARROW! P ) , INCOOE < P) • INGRI 0! P) , K T I ME l P ) , I 9T I ME t P ) , I ONE T ! P ) 

COMMON SORT { P ) , J SORT IP) , KHOLOIP) ,MOUMIP) , MARROW ( P ) , I CAL! P) , I HDL < P ) 
DYNAMIC ARRAY N ARR 0 W, I NC OOE , I NGR I 0, < T I ME , I OT I ME , I DNE T , SORT ( 0 ) , 

1JS0RT , KHOL 0, MOUM , MARROW, ICAL, IHOL 
DOUBLE PRECISION NAME, NAME I , NAME2. NAME3, NAME* , NAME5, BLANK, MAME 
09UBLE PRECISION I ALPHA, FMONTH.OBXXX 
INTXXX! 20)=K5 
p E TURN 
ENO 



88 



ICETRAN LISTING 



S. I 
S. 2 
S. 3 
S. 4 
S. 5 
S. 6 
S. 7 
S. 8 
S. 9 
S. 10 
S. I 1 
S. 12 

S. 13 
S. 14 
S. 15 
S. 16 
S. 17 
S. 18 
S. 19 
S. 20 
$. 21 
S. 22 
S. 23 
S. 24 
S. 25 
S. 26 
S. 27 
S. 23 
S. 29 
S. 30 
S. 31 
S. 32 
S. 33 
S. 34 
S. 35 
S. 36 
S. 37 
S. 38 
S. 39 
S. 40 
S. 41 
S. 42 
S. 43 
S. 44 
S. 45 
S. 46 
S. 47 
S. 48 



SUBROUTINE PROGE T I I A , I B , I C ) 

C THIS SUBROUTINE RETRIEVES THE PROGRESS OATA WHICH HAS BEEN INPUT ANO 

C STDREO IN NAME 8 • 

C SETTING I A = 0 WILL CAUSE JUST THE IDPROG'S TO BE RETRIEVED. IF IA * 1, 

C THEN COLUMNS IB THRU IC OF NAME8 WILL BE RETRIEVEO ANO STORED IN KPROG . 

COMMON M30E*NUHACT»NDACT » NJMAR, ICOOE» IFLOW,OATEM* GATED, DATEY, ONUM 
COMMON NDHDL , JOB OUR, A, B,C, D,E,F,G,H,K1,K2,K3,K4,K5,K6,LINE!20) 

COMMON NAME, NAME l, NAME2 , NAME3 , NA ME4 , NAME 5 , A3 (l 2) , M AME , OB X X X I 50 ) 

COMMON TABLE, HOLD, I ALPHA! 16) , MONTH! 12),RLXXX!20),INTXXXI20) 

COMMON NARROW! P) , INCODE ! P ), INGRI 0(P) , K T I ME ! P ) , I DT I ME ! P ) , I ONE T < P ) 

COMMON SORT IP) , JSOR T ! P ) , KHOL 0! P ) , MOUM! P ) , M ARROW ( P ) , I C AH P ) , I HOL ( P ) 

DYNAMIC ARRAY N ARROW , I NC ODE , I NGR I 0 , K T I ME , l DT I ME , l 0 NE T , SOR T I 0 > , 
l JSOR T, KHOL 0, MOUM, MAR ROW, I CAL, IHOL 
OYNAMIC ARRAY IDPROG, KPROG 

ODUBLE PRECISION NAME , NAME 1 , NAME 2 , N A ME 3 , NAME 4 , NAME5 , 8L ANK , M AME 
DOUBLE PRECISION I AL PH A , F MON TH , OBX X X 
DOUBLE PRECISION NAME8 
EQUIVALENCE ! OB X XX { 9 ) , N A ME 8 ) 

P EQUIVALENCE < OB X X X ! 22 ) , KPRDG ! I )) 

P EQUIVALENCE ! OB X XX ! 2 3 ) , I OP ROG ! I ) ) 

NAME8-NAME 

CALL ADONUM! NAME3,8 ) 

DISK FILE INF0(2,NAME8,IEXIST, IFIR$T,LAST) 

IF! IEXI ST-1 >20,20,51 
C KPROG ARRAY DOESN’T EXIST. 

20 RETURN 

51 DISK GET! 2, IF IRST,LINE!1 ), 1 ,4 ) 

DEFINE IDPROG, NOACT, FULL, LOW 
OISK GET! 2, LINE! 1 ), IDPROG! 1 ) ,0,0) 

IF! IA)53,53,54 

C IF JUST THE IDPROG’S WERE REQUESTED, RETURN NOW. 

53 RETURN 

C IP OTHER INFORMATION WAS REQUESTED RETRIEVE IT FROM NAME 8 AND STORE IT IN 

C THE ARRAY CALLEO KPROG. 

54 CONTINUE 

OEFINE KPROG, 9, POINTER, LOW 
00 62 I = I 8 » I C 

62 OEFINE KPROG! I ) , NO AC T , F UL L , L OW 
NBYTE 1 = ( I R — 1 ) *4+ l 
NBYTE2=IC*4 

00 65 1=1, NOACT 

IF! IDPROG! I )) 65, 65 ,63 

63 OISK GET!2, IDPROG! I), LINE! 13), NBYTE 1 , NBYTE2 ) 

00 64 J= I 3 , I C 

64 KPROG! J, I) =LINE! J) 

65 CONTINUE 
RELEASE KPROG 
RELEASE IOPRDG 
RETURN 
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ICETRAN 



\ 



ISTING 



s. 


1 






SU8RDUT I NE PRDGOL 


s. 


2 


C 




AS OF JAN. 26 1966 


s. 


3 


C 




THIS SUBROUTINE REVISED TO TREAT LAGS 


s. 


A 


C 




W.H. LINOER FOR SUBSYSTEM ’PROJECT* OF ICES, JULY 1966 


s. 


5 


C 




SHORTENED SU8R0UT I NE » 0E8UGGE0 OCTOBER 1966 


s. 


6 


C 




FFLDW MAKES THE FDRWARO SCHEDULING COMPUTATIONS 


s. 


7 






COMMON MODE, NUM ACT, NDACT.NUMAR, I CODE, IF L OW , 0 AT EM , 0 AT E D , 0 ATE Y , ONUM 


s. 


8 






COMMON NOHOL, JOBDUR, A, B, C, 0 , E , F, G, H , K 1 , K 2 , K 3 , K A , K5 , K6 , L I NE { 20 ) 


s. 


9 






COMMDN NAME, NAM El , N A ME 2 , N A ME 3 , N A ME A , N AHE 5 , A3 (12) , M AME , 0 B X X X ! 50 ) 


s. 


ID 






CDMMDN TABLE, HDLD, (ALPHA ( 16) , MONTH! 12) ,RLXXX!2D),INTXXX!20) 


s. 


I I 






COMMON NARROW! P) , INCDDE (P),INGRI0!P),KTIMEIP),IDT1ME{P), IDNETt P) 


s. 


12 






COMMON SORT(P) , JSORT ! P ) , KHOLDt P) , MOUMt P ) , MARROW! P ) , I C AL ! P ) , I HOL ( P ) 


s. 


13 






OYNAMIC ARRAY NARROW, INCOOE, INGRI0,<TIME, IDTIME,IDNET,S0RT(D), 








1 J SORT, KHDLD,MDUM, HARROW, I CAL, l HDL 


s. 


I A 






DOUBLE PRECISION NAME , N AME I , N A ME2 , NA ME3 , N A ME A , N AME5 , 8L ANK , M AME 


s. 


I 5 






ODUBLE PRECISION I ALPHA , FMONTH , OBX XX 


s. 


16 


C 




INITIALIZE STARTS AS 1 ANO FINISHES AS I ♦ DURATION 


s. 


17 


C 




BRANCH ON OATEM FOR WORK DAY START 


s. 


18 






I F { D AT EM ) 2,2,3 


s. 


19 


2 




noay=oated 


s. 


20 






GO TO A 


s. 


21 


3 




NOA Y= I 


s. 


22 




A 


00 ID I = I , NO AC T 


s. 


23 






IF!KTIME(2,I ) >7,6,7 


s. 


2 A 




6 


KTIME(2, l ) =N0 A Y 


s. 


25 




7 


IF!KTIME!A,l ) ) 10,8,10 


s. 


26 




8 


KTIMEtA, I )=KTIMEU , I )+KTIME!2,I ) 


s. 


27 




ID 


CONTINUE 


s. 


28 


C 




SEE IF THIS IS A NETWORK WITH NO ARROWS. IF SO, SKIP THESE CALCULATIONS 


s. 


29 






IF (NtJMAR ) 51 , 51 ,52 


s. 


30 


c 




NDW WORK 00 WN ARROW LIST CALCULATING ES ANO EF FROM EF OF SOURCES 


s. 


31 




52 


no 50 1=1, NJ MAR 


s. 


32 






K=N ARROW (1,1) 


s. 


33 






KK = NARROW ( 2 » l ) 


s. 


3 A 






I F ! MODE ) 1 OD , 99 , 100 


s. 


35 


99 




LAG= NARROW 1 3 , I ) 


s. 


36 






GO TO 98 


s. 


37 


IDO 


( AG = D 


s. 


38 


C 




SFF IF ES AT ARROW HF A 0 IS LESS THAN EF OF ARROW TAIL ACTIVITY 


s- 


39 


98 




IF(KTIME(A,K)-KTIMF12,KK)*LAG)5D,5D,8D 


s. 


AO 


C 




YES, SO PUT EF OF ARROW TAIL ACTIVITY INTO ES DF ARROWHEAD ACTIVITY 


s. 


A l 


8D 




KT IME12,KK)=KTIMFU,K)+LA3 


s . 


A 2 


C 




NDW ADD DURATION TO GET EF , IF EF HAS N3T BEEN SET LARGER 


s. 


A3 






IFIKTIMFl 4, KK )- KTl ME <2, KK)-KTIME(1,KK))8 2,50,50 


s. 


AA 




82 


KTIME! A,KK )=KTlMEl2,KK )+KTlME! l ,KK) 


s. 


A 5 


50 




CONTI NUF 


s. 


A 6 




51 


PELEASE NARROW 


s. 


A 7 






RFLFASF KTIMEIl) 


s. 


A3 






RFLFASF KT IMF ( 2 ) 



90 



s. 


49 


C 


NOW FIND JOB DURATION THE LATEST C GREAT EST ) EARLY FINISH 


s. 


50 




JOBDUR= 1 


s. 


51 




DO 60 I = 1 1 NO ACT 


s. 


52 




IF < JOBDUR-KT IME14, I 1 16 5,60,60 


s. 


53 


65 


J0BDUR=KTIME(4, I ) 


s. 


54 


60 


CONTINUE 


s. 


55 




RELEASE KTP4EC4) 


s. 


56 




RETURN 


s. 


57 




END 



90 



s. 


49 


C 


NOW FIND JOB DURAT 


ION THE LATEST! GREATEST) EARLY FINISH 


s. 


50 




J3BDUR=1 




s. 


51 




DO 60 I = l » NOACT 


* 


s. 


52 




IFC J0BDUR-KTIMEI4, 


I ) >65,60,60 


s. 


53 


65 


J0BDUR=KTIMEC4, I ) 




s. 


54 


60 


CONTINUE 




s. 


55 




RELEASE KTIMEC4) 




s. 


56 




RETURN 




s* 


57 




END 





/ASSIGN 2-PROJECT 
/ASSIGN 3= ICES 
/RESTORE SYSl 

COP 

SYSTEM 1 PRO J 1 'LINGER* 
RFPLACE ' SEL I N X ' $ SFLI 

CONOITIC1N REAL *E* GE 1 

EXECUTE * PROGMD' * 
EXECUTE * PROGD J * $ 

OTHERWISE $ ENTRY HERE I 
EXECUTE ' PROG I X * $ 

EXECUTE * PROGD J * $ 

END CONDITION 
RETURN 
FILE 



NX CALLS COMPUTATI 
$ ENTRY HERE IMPLI 
CALL THE MULTIPLE 
DESTROY THE JSORT 
MPLIES WE HAVE A S 
EXECUTE COMPUTATI 
DESTROY THE JSORT 



ONAL PROGRAMS FOR STATUS INOEX. 
ES WE HAVE MULTIPLE DATES. 

OATE SUBROUTINE. 

ARRAY. 

INGLE DATE. 

ONAL SUBROUTINE TO FIND INDEX. 
ARRAY. 



i 



FINISH 



GOOO-RYE 



ELAPSED T I M E = 00.00 MINUTES 
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/ASSICN 2=PR0JECT 
/ASSIGN 3 = I C F S 
/RESTORE SYSl 

COP 

SYSTEM ’PROJ* 'LINDER* 

REPLACE 'PROGRESS* 

IGNORE * REP * • D A ' • A S * * OF • *FOR* *W* 

PRESET RFAL *H* EQ - 1 $ SET SO AS TO SKIP PRCLEC IN *IPOATE*. 

EXISTENCE • PRO • *FIN* *STA* *COS* SET *12* STA 5 
CONDITION *12* LE 4 

DATA CHECK SET 'K4» $ SEE IF THERE'S A DATE GIVEN 

CONDITION INTEGER »K4' EQ -t 

MESSAGE * DATE MISSING IN ♦REPORT* COMMAND. NO ACTION TAKEN 
RETURN $ CEASE PROCESSING THIS COMMAND. 

OTHERWI SE 
END CONDITION 
CALL 'IPDATE* 

CONDITION REAL *R* NE 0. 

EXECUTE ' PPPORK * 

OTHFRWISF 

MOVE • A * TO • D • 

END CONDITION 
PRFSET * Kl * FQ t 

EXECUTE 'PROGST* t INITIALIZE FOR PROGRESS INPUT - CREATE NAMES . 
REPEAT TARULAR 
IGNORF 'ACT' 'DAY' 

DATA CHECK SET *K4' t IS THIS THE LAST DATA CARD. 

CONDITION INTFGFR 'K4' LT 2 $ NOT SATISFIED IE NEXT DATA IS 

IGNORE 'LAS' 

REPEAT EXIT 

END CONDITION OPTIONAL 
NO IP REAL 'A' RE Q * FIRST NODE NIJMRER . 



ACT. N 
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PRESET REAL *B* EQ 0. $ SET 0=0. SO YOU CAN CHECK IT LATER. 

CONOITIDN * MOOE * EO 1 $ IS NETWDRK A/A 

NO ID REAL 1 B * REQ S SECONO NOOE NUMBER. 

ENO CONDITION OPTIONAL 

PRESET 1 K I * F 0 2 $ CHECK ANO STORE ACTIVITY NUMBER 

EXECUTE * PRDGS T * 

CDNDITIDN *KV LT l S SKIP DATA CARO IE BAD ACTIVITY NO. 

OTHERWISE $ IF ACTIVITY ND. IS VALIO, CONTINUE. 

CONDITION * I 2 ' EO 1 S GENERAL PURPOSE INPUT CDMMANO. 

CALL *DATAST* $ SUBROUTINE CDL TD PRDCESS PROGRESS DAT 
OR CONDITION M2' EQ 2 S CDMMANO IS REPDRT FINISH 
IGNORE * F * 

CALL * I PDA TE * 

CONOITIDN REAL *B' EO 0. 

MOVE * A * TO * D * 

OTHERWISE 

EXECUTE •PRPORK* 

END CONDITION 
PRESET ' K I * EO 3 

EXECUTE * PROGST * $ STDRE FINISH OATE IN L I NE2 . 

OR CONDITION M2' EQ 3 S COMMAND IS REPDRT START 
IGNOPE * S' 

CALL MPDATF* 

CONDITION REAL 'B* EO 0. 

MOVE * A 1 TD 'D' 

OTHERWISE 

EXECUTE * PRPORK* 

END CONDITION 

PRESFT • K l * EQ A S STORE START OATE IN LINE3. 

FXFCUTE »PROr,ST' 

D^ CONDITION M2* EQ A S COMMAND IS REPORT CDST 
IGNORE *C' 



NO ID REAL 'C* 
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PRESET ' K l ' EO 5 t STDRE COST DATA. 

EXECUTE 'PRDGST ' 

END CONDITION DPTIDNAL 
PRESET ' K1 • FO 6 

EXECUTE ' P ROGST • t STORE INFO ON THE DISK 
END CONDITION 
END REPEAT TABULAR 

PRESET ' K l * EO 7 i STORE ID OF UPDATED ACTIVITY IN DIRECTORY. 

EXECUTE 'PRDGST' 

OTHERWISE i IF INVALID COMMAND PRINT ERRDR MESSAGE. 

MESSAGE ' INVALID D9JFCT NAME FOR **REPDRT** COMMAND. NO ACTION TAKEN.' 
END CONDITION 
NEXT RECDRD 
NEW CDMM AND 

return 

FILE 

1 

FINISH 

GOOD-BYE 



ELAPSED T I M E = DD.OD MINUTES 



/ASSIGN 

/ASSIGN 

/RESTORE 

COP 

SYSTEM 

REPLACE 

$ SFE 



2=PROJECT 
3= ICES 
SYS L 



• PRO J * 'LINDER* 

• DA T AS T 1 

REPEAT 

IF THE ENO OF C A p 0 FOLLOWS 



S SUBROUTINE COL TO PROCESS PROGRESS DAT 



IF YES, EXIT THE REPEAT LOOP • 
OATA CHECK SET 'K6' 

CONDITION INTEGER 'K6' EO -1 
REPEAT EXIT 
OTHERWISE 
END CONDITION 
MOOIFIFR 'FIN* 

CALL • I PDATE 1 
CONDITION REAL *B' EO O* 

MOVF * A 1 TO *0* 

OTHERWISE 

EXECUTE 1 PRPORK * 

ENO CONDITION 
PRESET ' K 1 ' EO 3 

EXECUTE 'PROGST' % STORE FINISH DATE. 
DR MOOIFIER 'STA' 

CALL ■ I PD ATE ' 

CONDITION REAL 'B* EO 0. 

MOVF ' A ' TO *0* 

OTHERWISE 

EXECUTE 'PRPORK' 

ENO CONDITION 

PRESET 'Kl* ED <► S STORE START DATE* 
EXECUTE 'PROGST* 



O p MOO ■ COS' 
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NO ID RFAL *C' 

PRESET 1 K1 ' EO 5 $ STORE COST DATA. 

EXECUTE ' PROGST * 

OR CONDITION * K A ' EO 29 
NO 10 REAL »C' 

PRESET ' K 1 ' EO 5 * STORE COST DATA. 

EXECUTE 'PROGST* 

PR CONOITION • K A ' EO 31 
CALL 'IPOATE' 

CONDITION REAL '9* EQ 0. 

MOVE • A * TO 'D' 

OTHERWISE 

EXECUTE ' PRPORK ' 

F.NO CONOITION 

PRESET ' K 1 • EQ A * STORE START OATA. 

EXECUTE 'PROGST' 

PR CONDITION • KA ' EQ 32 
CALL 'IPOATE' 

CONOITION REAL 'B' EO 0. 

MOVE 'A' TP 'O' 

OTHERWISE 

EXECUTE 'PRPORK* 

END CONDITION 

PRESET ' K l • EQ 3 5 STORE FINISH DATE. 

EXECUTE 'PROGST* 

OTHERWISE S NO MODIFIER INPUT. 

% THIS POTION OF THE COL IS USED WHEN THERE ARE NO MODIFIERS GIVEN WITH DATA. 

MESSAGE 'NO MODIFIERS. ASSUMED INPUT OROER TO BE START 
, FINISH, COST {OPTIONAL).' 

CALL ' I PDA T F ' 

CONOITinN REAt *9' EQ 0 

MOVE 'A' TO 'D' 



OTHf P WT E E 
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END CONDITION 
PRESET * K 1 * FQ 4 

EXECUTE 'PROGST* $ STORE THE START OATA. 

CALL * ! PDAT E * 

CONDITION REAL • ft • EO 0 
MOVE * A * TO 'O' 

OTHERWISE 

EXECUTE * P R PORK * 

ENO CONDITION 
PRESET * Kl 1 EO 3 

EXECUTE • PROGST ' $ STORE FINISH DATA. 

DATA CHECK SET 'G' 

CONDITION INTEGER • G' GE 2 

$ G LARGER THAN 1 IMPLIES THAT A NUMBER — HERE A COST — EOLLDWS . 

NO I 0 REAL 'C' REO 
PRESET • K I • EO 5 

EXECUTE • PROGST * S STORE COST OATA IF IT EXISTS. 
OR CONDITION INTEGER • G' EO -I 
OTHERWISE 

MESSAGE • *** ERROR IN PREVIOUS DATA CARD. PROCESSING CONTINUES ***' 

END CONDI T ION 
REPEAT EXIT 
END CONDITION 
ENO MODIFIER BLOCK 
END REPEAT 

RETURN 

FILE 

l 

finish 

GOOD-RYE 

ELAPSED T I M r = 0" .0^ MINUTFS. 
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APPENDIX B 

There is a special convention for writing commands in a text such 
as this* Words in parenthesis are optional and may be omitted* The 
set of characters H ( f projname 1 )" is, of course, the name of the parti- 
cular project in question enclosed in quotes. This information may be 
omitted if the project name is available from a previous command* Fi- 
nally, any word appearing in small letters (such as "date”) indicates 
where alphameric or numeric data must be provided. 
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